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USER'S MANUAL FOR FSLIP-3, 
FLEXSTAB LOADS INTEGRATION PROGRAM 


Robert L. Sims 

Dryden Flight Research Center 


1.0 INTRODUCTION 


In the last decade, computer programs for theoretical aerodynamic 
analysis have evolved with increasing accuracy and sophistication. A 
most useful output from these panel method programs is the prediction 
of surface pressures on fairly arbitrary three dimensional configurations. 
These surface pressures can be integrated to obtain total forces and moments 
on complete configurations or airloads acting on individual vehicle 
components. 

The FLEXSTAB computer program system (references 1-4) is being 
evaluated at NASA Dryden Flight Research Center for the prediction of 
airloads on rigid and aeroelastic configurations. Predicted airloads 
are being compared with wind tunnel and flight measured loads for a 
variety of vehicles including the B-l and Space Shuttle Orbiter (reference 
5). An existing FLEXSTAB module called ALOADS was written to integrate 
pressures to obtain airloads. However, certain restrictions in the ALOADS 
module make it ill-suited for predicting airloads which are comparable to 
many typical flight measured airloads. The most important restriction is 
that the pressures are summed at a user-specified point relative to the 
reference axis system which means the integration axis must be parallel to 
the model centerline with no sweep angle. The ALOADS model is also limited 
to symmetric flight conditions. 

Because of these restrictions, a new follow-on integration program called 
FSLIP was written which has expanded capabilities and flexibility. FSLIP 
is generalized to work on any FLEXSTAB model with no restriction on the 
type of case or definition of the integration axis system. The effective 
area, bending arm, and torque arm for each panel can be individually defined. 
FSLIP also has a built-in interface with the FLEXSTAB GDTAPE data base to 
automatically generate the geometric integration data. Included in the 
program is an option for computing airloads derived from linearized wind 
tunnel coefficients for comparison to FLEXSTAB predicted loads. 

This report consitutes the FSLIP program documentation and user's 
manual. An outline of the computational tasks is followed by sections 
describing the program's organization, execution, detailed data input, 
and output. Examples are included which illustrate the main program options. 
A microfiche supplement contains a listing of the source code and reference 
map. 


2.0 SYMBOLS AND ABBREVIATIONS 


The program assumes all varibles are input in U.S. Customary Units as spec- 
ified below. 


B 

BP 


b/2 

C i 1* C i 2 ’ C i 3 
C V’ C B’ C T 

C VBT 

c 

FS 

L i 

P 

Q 

q 

R 

R i 

S 

S i 

T 


V 

V t 

WL 

X A’ Y A 


bending moment airload, in- lbs 
butt plane, in 0 

reference semispan of a load station, in. 

shear, bending, and torque constants, respectively (eq. 7) 

shear, bending, and torque airload coefficients (eq. 4, 5, and 
6, respectively) 

generalized airload coefficient (eq. 8-14) 

reference chord of a load station, in. 
fuselage station, in. 
generalized airload (eq. 7) 

rolling velocity, deg/sec, positive left wing up 
pitching velocity, deg/sec, positive nose up 
free stream dynamic pressure, psf 
yawing velocity, deg/sec, positive nose right 
radius at a slender body aerocentroid, in. 

2 

reference area of a load station, ft 

2 

effective area of a panel, in 

torque airload, in-lbs 
shear airload, lbs 
true velocity, ft/sec 

waterline, in. 

integration axis coordinate system 
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’ X A 
A 0 A 0 


C i 


coordinates defining the origin of a thin body integration 
axis system, in. (fig. 6) 

effective centroid of a slender body panel, in. 


X FWD’ X AFT 5 X MR 


coordinates defining a slender body integration, in. (fig. 8) 


X M’ Y M’ h 


slender body local coordinate system 


Y m , Z. 


thin body local coordinate system 


x i 


effective torque arm of a panel, in. 


y i 

a 

a 

3 

6 , 


V 


5 RL 


RU 


’SP, 


>SP r 


ACP. 


ax 


HT 


AX, 


AX 


VTR 


effective bending arm of a panel, in. 

angle of attack, deg, positive nose up 

angle of attack derivative, deg/sec, positive nose up 

angle of sideslip, deg, positive nose left 

symmetric horizontal tail deflection (6^ +6^ )/2, deg, 
positive trailing edge down n L n R 

asymmetric horizontal tail deflection (6^ -6u )/2, deg, 

lower rudder deflection, deg, positive trailing edge left 

upper rudder deflection, deg, positive trailing edge left 

left spoiler deflection, deg, negative trailing edge up 

right spoiler deflection, deg, positive trailing edge up 

differential pressure coefficient of a panel 

horizontal tail moment transfer arm, longitudinal, in., (eq. 16) 

effective longitudinal width of a slender body panel, in. 

vertical tail root moment transfer arm, longitudinal, in., 

(eq. 18) 
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A %T 

4z vtr 


horizontal tail moment transfer arm, lateral, in., (eq. 19 ) 
vertical tail root moment transfer arm, vertical, in., (eq. 19 ) 


sweep angle of a thin body integration axis system, deg 


Subscripts: 


AF 

aft fuselage 

A/S 

asymmetric 

c/o 

carryover effect 

FF 

forward fuselage 

LHT, RHT 

left and right horizontal tail 

LW, RW 

left and right wing 

SYM 

symmetric 

UVT 

upper vertical tail 

VT 

vertical tail 

VTR 

vertical tail root 
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3.0 COMPUTATIONAL TASK DESCRIPTION 


Sections 3.1, 3.2, and 3.3 outline the major computational tasks performed 
by the program. Section 3.4 discusses the sign convention for the loads. 


3.1 Pressure Integrated Loads 

The primary program task is to integrate pressures on a finite number of 
panels making up a single thin or slender body. The pressures are summed rel- 
ative to an integration axis system to produce shear, bending, and torque loads 
as follows: 


V = 

q 

E 

i 

ACP.J * S- 

(1) 

B = 

q 

Z 

ACP i » s. . y. 

(2) 

T = 

q 

E 

i 

ACP.J • s.. • x. 

(3) 


The integration geometry for each load station is stored on a data base for 
repeated use. The pressure coefficients are stored on a separate data base for 
each case to be processed. Each body may have a left and right hand side or be 
a single body on the vehicle centerline. Thin bodies have a single &CP acting 
normal to each panel. Slender bodies may have both a vertical and lateral ACP. 

The total integrated loads at each station are reduced to standard non- 
dimensional form as follows: 


C v = V / ( q - S ) (4) 

C B = B / ( q • S • b/2 ) (5) 

C T = T / ( q • S • c ) (6) 


3.2 Additional Loads Option 


Once the pressure integrated loads have been computed, a program option 
allows a new load station to be defined which is a linear combination of pre- 
viously defined loads. An additional load definition takes the generalized form 
of a matrix equation: _ 


C 11 C 12 C 13 





C 21 C 22 C 23 

• • • 


(7) 




C 


i 3 
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3.3 Wind Tunnel Loads Option 

This program option computes airloads based on linearized coefficients de- 
rived from wind tunnel or other load surveys. Table 1 lists the aerodynamic 
effects applicable to 5 types of load stations. The overall format is based on 
the airload coefficients derived for the B-l aircraft in reference 6. The total 
load coefficients at each station are built up from the components as listed in 
the generalized equations below. Particular attention should be paid to the 
units and sign conventions for each component. 

3.3.1 Wing station . - 


Left side: 


i a Sv 

IU , VBT + °VBT “ + SbT- ' ... 
LW a=0 a at 


S/BT. = C 


2V - / S/BT S SP L „ 
SP 


c 


(3 l 

“VBT p \ 2V t / vBT \ 2V t 


(8L) 


"VBT + C VBT D ' 
3a=0 6a=0 


^.TBT. + S-BT 


a 


6a 


SYM 


A/S 


SYM 


6a 


A/S 


Right side: 


C VKT n ,., = SbT , + C BV r r a + C VBT- \ 2V + 


RW a=0 


a C, 


a a 


'W 


t ' VD ‘ S _ SP RW 


* C VBT i 6 ' 
"SP 


/ Pb 

- C.__ (-=^-1 + 


ill + r (3L 

VBT„ \ 2V. / WBT^ \ 2V 


P ' 


Q “*t 


(8R) 


C VBT Q ' C VBT 0 n 
6a=0 3a=0 

SYM A/S 


+ /C. 


'VBT 


3a 


S^BT 


a 


SYM 


6a 


’A/S/ 
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TABLE I.- AERODYNAMIC EFFECTS APPLICABLE TO COMPONENT LOADS 


Effect 

Wing 

Horiz 

tail 

m 

■ 


a = 0 

X 

X 


X 

X 

a 

X 

X 


X 

X 

a 

X 

X 




3 


X 


X 

X 

6[_[ (sym horiz tail defl) 


X 




<5h' (anti sym horiz tail defl) 


X 

X 


X 

6sp (spoiler defl) 

X 

X 

X 



5gp c/o (horiz tail carryover) 


X 




6]Rjj (upper rudder defl) 
6 rl (lower rudder defl) 



X 

X 


X 

P (damping in roll) 

X 

X 

X 

X 

X 

Q (damping in pitch) 

R (damping in yaw) 

x 

X 

X 



3 a = 0 A/S (wing) 

X 





3 a = 0 Sym (wing) 

X 





3aA/S (wing) 

X 





BaSym (wing) 

X 





3 a = 0 (vert tail) 

3a (vert tail) 

3 a = 0 c/o (aft fus carryover) 



X 

X 


X 

3a c/o (aft fus carryover) 





X 


X = Applicable aerodynamic effect 
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3.3.2 Horizontal tail stati on, - 


Left side: 


Sbt " C 


LHT ¥ " 4 a -0 


a C 

'VBT , + ^BT a + C VBT. 6 H + C VBT- \ 2 V. 


a 


HT 


H 


a t 


* S/BT S H' * c vbt/ • Sw, 6 SP, * Vet 

Ur 1 


* a (5 jl). c f5«: 

S/BT p \ 2 V t / L BVT q \ 2 V t 


6 sp ~L 


SP. 


SP 


R 


c/o 


(9L) 


Right side: 


CvBT RHT " CvBT a = 0 + CvBT - SiVT x 6 H + C BVT- \ 2V+ 


a C. 


J H 


HT 

t 


C VBT_ 6 H' " S/BT.^ + S/BT. 6 SP„ ' SbT. 


6 H' 


6 SP R 


'SP T 


SP 


c/o 


, ,5*t) ♦ c (5s 

vBT p \ 2V t l L W q \ 2V t 


(9R) 


3.3.3 Vertical tail station. - 


"VBT, 


VT 


C VBT , + S/BT a 

6a=0 ° 6a. 


3 + C VBT . 6 II* 


fi H' 


•"%(*», • x) - •« 


( 10 ) 


S/BT c 5 RL + S/BT,, \ ZV^J + S/BT„ \ 2 V. 


Pb, 


VT 


RL 


p i ' v t 


Rb. 


VT 


R ' “'t 
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3.3.4 Forward fuselage station . - 


Vertical : 

C VBT cl - = C VBT + C VBT a 

FF a=0 a 


(ID 


Lateral : 


C VBT 




6 + C 


VBTr 



( 12 ) 


3.3.5 Aft fuselage station . - 
Vertical : 

C VBT flr = C VBT _ n + C VBT 
AF a-0 a 

Lateral : 



(13) 


+ C VBT„ 6 H' + C VBT. 5 RL 

V 6 rl 


(14) 


The TOTAL vertical and lateral airloads at the aft fuselage station can be 
computed by adding the tail induced components to the airloads on the aft 
fuselage itself : 

Vertical : 

V AF = (C V Ap 9 S AF^ + (V LHT + V RHT ) (15) 


B AF = (C B af S AF b AF /2 ^ + ^ V LHT + V RHT^ AX HT “ ^ T LHT + T RHT^ 

Lateral : 

V AF = (C V AF ^ S AF ) + V VTR (17) 

B AF = < Cb AF ^ S AF b AF /2 ^ + V VTR Ax VTR " T VTR 
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( 19 ) 


T AF ( C TaF ^ S AF C AF^ + V VTR Az VTR + B VTR 
+ ^ V LHT " V RHT^ Ay HT + ^ B LHT ' B RHT^ 


3.4 Sign Convention for Loads 

Figure 1 shows the sign convention for positive shear loads,, Note that 
for thin bodies off the centerline, positive shear load is always in the di- 
rection of the LOCAL Z|\j axis normal to the surface,, For slender bodies off 
the centerline, positive shears are always in the direction of the LOCAL Ym 
and Zm axes. For all bodies on the centerline, positive shear is always to 
the right. 

Positive bending and torque loads for the right side thin bodies obey the 
right hand rule about the local X and Y axes respectively (positive tip and 
leading edge up). The left side axes are a mirror image of the right side. 
For slender bodies, a program option allows the user to define the convention 
for positive bending moments (either nose up, nose right, tail up, or tail 
right) . 


Plane of symmetry 


(Rear view) 


Arrows indicate direction 
of positive shear loads 



Figure 1. Sign convention for positive shear loads. 
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4„0 PROGRAM DESCRIPTION 


The FSLIP-3 program is written in FORTRAN Extended Version 4 (reference 
7), Current length is 1535 statements including comments. A complete 
listing of the source code with reference maps is included in a microfiche 
supplement attached to the inside back cover. 

4.1 Main Program Organization 

The primary function of the main program is to control the execution 
of subroutines which create or use various mini data bases. A simplified 
flowchart of the main program is shown in figure 2. The program first reads 
execution control information. If requested, an integration geometry data 
base is next created by a call to the geometry option subroutine (GOPSR). 

If no other options are requested, execution stops at this point. A call to 
the wind tunnel option subroutine (WOPSR) creates a data base containing 
wind tunnel load coefficients. Next, data describing each case (e.g. a, 3, 
q, <Sg, etc.) are read in. If the pressure data is input on cards, the pressure 
option subroutine (POPSR) is called to create this data base. 

At this point (labeled A) all data input is complete and the program 
proceeds with the computational options. A call to the integration option 
subroutine (IOPSR) generates the pressure integrated loads. If specified 
on the geometry data base, this subroutine also computes any additional loads 
defined as a linear combination of previously computed loads. If wind tunnel 
derived loads are desired, the wind tunnel option subroutine (WOPSR) is called 
again. At this point., all loads have been computed and the only remaining task 
is an option to print a summary of specified results in a very concise format. 

4.2 Input/Output Data Flow 

As just discussed, a set of subroutines creates or uses a number 
of discrete disk files containing data required by the computational options. 
Table 2 describes the function of each disk file allocated for data input or 
output. The overall data flow between the subroutines is shown in figure 3 
and is discussed below in terms of the primary program options. Specific 
details of the unformatted disk files are provided in the DATA INPUT DESCRIP- 
TION (sections 6.2, 6.3, and 6.5), 

4.2.1 Geometry Option .- The surface/axis data file (Tape 20) provides the 
foundation for the integration process. For each integration, this data base 
contains the effective area, bending arm, and torque arm for each panel on the 
specified body. The user has several means of creating the surface/axis data 
file via subroutine GOPSR which is controlled by the geometry option parameter 
(GOP). If GOP = 1, the file is assumed to exist and the subroutine is not 
called. GOP = 2 indicates that the file is copied from card input. GOP = 0 
means the file is not input. 

An initial run is usually made with GOP = 3 or 4 which uses the FLEXSTAB 
GDTAPE. The user simply specifies the FLEXSTAB body along with the integration 
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Figure 2. Main program simplified flowchart. 
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SURFACE/AXIS 
DATA FILE 
(TAPE20) 


FLEXSTA3 

GDTAPE 

(TAPE30) 


SURFACE/AXIS 

DATA 


GEOMETRY 

OPTION 

SUBROUTINE 


SURFACE/AXIS 
. PRINTOUT 
(G0P=3 or 4) 


SYNC 

SUBROUTINE 


INTEGRATION 

OPTION 

SUBROUTINE 


PRESSURE 

INTEGRATED 

LOADS 

PRINTOUT 

(IOP=l) 


FLEXSTAB 

PUNCHED 

PRESSURES 


PRESSURE 

OPTION 

SUBROUTINE 


PRESSURE 
DATA FILES 
(TAPE11-19) 


LOAD 
SUMMARY 
PRINTOUT 
(IOP=l or 2) 


WIND TUNNEL 
AIRLOAD 
COEFFICIENTS 


WINO TUNNEL 
DATA FILE 
(TAPE40) 


WIND TUNNEL 
OPTION 
SUBROUTINE 


WIND TUNNEL 
LOADS 
PRINTOUT 
(WOP=l or 2) 


Figure 3. Input/output data flow. 











TABLE 2. INPUT/OUTPUT DISK FILES 


Logical 

File 

Name 

Description 

TAPE 11 
thru 
TAPE 19 

Contains panel pressure coefficients, one file 
per case, up to 9 cases per job. These files 
are normally copied from FLEXSTAB punched card 
decks. 

TAPE 20 

Contains surface/axis geometry information for 
each load station on each thin or slender body. 
This file is normally created from card input 
and cataloged for later runs. 

TAPE 30 

FLEXSTAB GDTAPE - This permanent file can be 
accessed to automatically generate the surface/ 
axis geometry file (TAPE 20). 

TAPE 40 

Contains airload coefficients for the wind tunnel 
derived loads option. There is usually a different 
file for each Mach number/vehicle configuration. 
This file is normally created from card input and 
cataloged for later runs. 

TAPE 50 

Temporary internal scratch disk used by the inte- 
gration option subroutine. 


axis location and GOPSR automatically computes the data for each panel and 
creates the data base. A printout is generated which lists complete details 
of the integration definition. If GOP = 4, the surface/axis file is also 
punched on cards. This option gives the user a means to manually override the 
computed values on selected panels for special cases. The modified deck is 
then rerun using GOP = 2. This procedure is fully discussed in section 6.2 
and illustrated with an example in section 8. 

4.2.2 Pressure Option .- The panel pressure data are usually in^ut from 
FLEXSTAB punched card decks. In this case, the pressure option parameter 
(POP) = 1 which directs subroutine POPSR to copy each case to a separate 
unformatted disk file. If desired, these files can be cataloged for later 
runs where they are input directly using POP = 2. Pressure data from a 
source other than FLEXSTAB could be processed if input in the same card 
format or written directly to the disk files by the generating aerodynamic 
program or an interface program. If no pressure data are to be input, POP * 0 

4.2.3 Integration Option .- Subroutine IOPSR processes each integration 
definition on the surface/axis data file by calling subroutine SYNC which 
searches the current pressure file for matching pressure data. If SYNC 
cannot find pressure data for the specified body, a message is printed and 
IOPSR proceeds to the next integration. The user can also individually 
suppress any particular integration definition residing on the surface/ 
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axis file. Any additional load definitions are processed after all 
integrations have been completed for the first case. IOPSR then recycles 
to repeat the process for any succeeding cases. 

The user has two options when executing IOPSR which controls the printed 
output. For IOP = 1, a detailed listing is generated for each integration 
which shows the area, arms, pressure coefficient, and loads for each panel 
on the body. If IOP = 2, this detailed listing is suppressed and the loads 
summary printout notion must be used to printout the total integrated loads. 
The case data f-;ead from cards by the main program) are passed to IOPSR via 
common and is optional. Its only function in IOPSR is to provide case 
descriptive data printed in the page header for each integration. If IOP = 0, 
IOPSR is not called and no integrations are performed. 

4.2.4 Wind Tunnel Option .- To compute wind tunnel derived airloads, sub- 
routine WOPSR is initially executed with WOP = 2, which copies the load 
coefficients from card input to the unformatted disk file. Future runs 
are then made by using the file directly with WOP = 1. For either 
option, the load coefficient data file is combined with the case describing 
data to compute the airloads for each case. The wind tunnel loads printout 
produces a listing of the coefficients and component loads for each aero- 
dynamic effect. 

For comparison purposes, a summary of the wind tunnel loads can be 
printed out along with the pressure integrated load only if the integration 
option is executed. The wind tunnel option can also be executed by itself 
by setting GOP, POP, and IOP to zero. In this mode, only the standard 
wind tunnel loads printout is generated. If WOP = 0> WOPSR is not called. 
Creation of the wind tunnel data file is described in detail in section 6.3 
and illustrated with an example in section 8.2. 


4.3 Option Requirements 

The input and computational options discussed above are listed in 
detail in the input description for CARD 1 (section 6.1). The user can 
individually select the form by which the data input files are created 
or accessed and the computational options performed on these files. 

In general, any combination of program options are allowed through 
proper system control cards (see JCL section 5.1 and 5.2). The only 
requirements are listed below. 

1. Execution of the geometry option with GOP = 3 or 4 
requires access to a FLEXSTAB GDTAPE (TAPE 30). 

2. Execution of the integration option requires access to 
both a surface/axis data file (TAPE 20) and a pressure 
data file for each case (TAPE 11-19). Thus if either 
GOP or POP = 0, IOP must = 0. 

3. Execution of the wind tunnel option requires access 
only to a airload coefficient file (TAPE 40). 
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4.4 Program Restrictions and Limitations 

4.4.1 FLEXSTAB Dependent .- The FSLIP program was written to be compatible 
with any FLEXSTAB GD model. Thus any restrictions in the GD module (ref. 

2-4) also apply to FSLIP. While there is no limit on the number of bodies 
defining a GD model, each slender body is limited to 100 control points and 
each thin body is limited to 200 panels. 

The most important restriction affecting FLEXSTAB jobs involves the use 
of units. FSLIP assumes the aerodynamic model is defined in inches, thus 
the units option in the GD module must be INCHES. FSLIP also assumes that 
dynamic pressure is in PSF, thus the units option in the SDSS module must 
be IN/FT or FT. 

When interfacing with the GDTAPE (GOP = 3 or 4), FSLIP is compatible with 
any GDTAPE except those produced by Level 3.02 FLEXSTAB. The GDTAPE file 
structure for Level 3.02 was changed (reference 8) which affects the read 
statements in G0PSR. There are two ways to circumvent this problem for the 
user of Level 3.02 FLEXSTAB. The read statements in G0PSR can be changed 
to be compatible with Level 3.02 or the user can maintain access to an 
earlier level GD module for creating a FSLIP compatible GDTAPE. Under the 
FLEXSTAB system, the GDTAPE may contain multiple files with each file 
defining a different GD model. FSLIP reads the currently positioned file, 
thus if the user wishes to process other than the first file, appropriate 
SKIP or COPY utilities should be used to position the desired file after 
attaching the GDTAPE. 

4.4.2 FSLIP Dependent .- Result arrays in FSLIP are currently sized to 
handle up to 9 different pressure cases per run. The surface/axis data 
file can contain up to 50 load stations to be processed for each case. 

The pressure data is usually input from card decks punched by the SD & 

SS module in FLEXSTAB. However, SD & SS is limited to punching thin 
body pressures only. If the user wishes to compute loads on slender 
bodies (such as fuselage loads), FSLIP has provisions for manually 
adding the slender body force coefficients (computed by SD & SS) to the 
thin body pressure decks. This procedure is described in section 6.5. 

A very general restriction in FSLIP relates to the printed output 
which makes extensive use of fixed field F formats. These fields have 
been sized to handle physically realistic problems, and thus should not 
present a practical limitation. Specific restrictions related to the 
detailed card input is discussed in the DATA INPUT DESCRIPTION (section 
6 ). 
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5.0 PROGRAM EXECUTION 


FSLIP is presently operational on DFRC's CDC Cyber 73 computer. 

The program has been executed using both the SCOPE and NOS operating 
systems. Section 5.1 describes the Job Control Language (JCL) required 
for the SCOPE 3.4 operating system (reference 9). Section 5.2 contains 
the JCL required for the NOS 1.4 operating system (reference 10) . 

5.1 SCOPE JCL 

To execute the FSLIP program using SCOPE, the following system control 
cards are required: 

1. Job Card. 

2. XXXXX ,T300,FTN, YYYY . 

3. ATTACH(LG0,FSLIP3, ID=SIMS,MR=1 ) 

4. REQUEST (TAPE)CX,*PF) 

5. ATTACH (TAPEXX, YYYYY YY , I D= ZZZZ ,MR-1) 

6. MAP(OFF) 

7. LG0(PL=10000) 

8. CATALOG (TAPEXX , YYYYYYY , I D=ZZZZ) 

9. 7/8/9 End of file card 

10. Data Input Deck 

11. 6/ 7/8/ 9 End of job card 

NOTES : 

Card 1 - Estimated wall clock time of 2 to 5 minutes should be sufficient 
for most jobs. 

Card 2 - XXXXX = User's Job Name 
YYYY = Subtask number 

Card 4 - These two cards are included for each data file to be input on 
and 8 cards and cataloged for use in later runs. 


XX = 11 

For 

pressure data file. 

case 

1 

12 

II 

II II 

II 

9 

case 

2 

13 

II 

II 11 

II 

9 

case 

3 

14 

II 

II It 

II 

9 

case 

4 

15 

II 

II M 

II 

9 

case 

5 

16 

II 

II II 

II 

9 

case 

6 

17 

If 

II II 

II 

9 

case 

7 

18 

II 

II II 

II 

9 

case 

8 

19 

II 

II II 

II 

9 

case 

9 

20 

For 

surface/axi s 

data file 


40 

For 

wind tunnel 

data file 




YYYYYYY = Permanent File Name 


ZZZZ = Owner I.D. 

Card 5 - This card is included for each previously cataloged data file 
to be accessed for job execution. The parameters XX, YYYYYYY, 
and ZZZZ are the same as for CARD 8, with the addition: 

XX, = 30 for the FLEXSTAB GDTAPE 

Card 7 - For large jobs, the print limit may have to be increased. See 
section 7.1 for estimating amount of printout. 

5.2 NOS JCL 

To execute the FSLIP program using NOS, the following system control 
cards are required: 

1. Job Card 

2. XXXXX ,T300. 

3. USER(XXXX,YY ) 

4. CHARGE ( XX, YY,FTN) 

5. ATTACH(LG0= FSLIP3/UN=SIMS) 

6. DEFINE (TAPEXX= YYYYYYY/ CT=SPRIV) 

7. ATTACH (TAPEXX= YYYYYYY ) 

8. LDSET(PRESET-ZERO) 

9. MAP(OFF) 

10. LG0(PL=10000) 

11. 7/8/9 End of file card 

12. Data Input Deck 

13. 6/7/8/9 End of job card 

NOTES : 

Card 2 - XXXXX = User's Job Name 
Card 3 - XXXX = User's name 

YY = User's password 
Card 4 - XX, YY = Subtask number 

Card 6 - This card replaces cards 4 and 8 defined above for SCOPE with 
the same XX and YYYYYYY parameters. 

Card 7 - This card replaces card 5 defined above for SCOPE with the same 
XX and YYYYYYY parameters. 
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5.3 CM and CP Time Requirements 

FSLIP requires a maximum execution field length of approximately 
115K octal words. Execution CP times are very problem size dependent 
but relatively quick. Most average size jobs run in 10 to 20 CP seconds. 
The largest size jobs may require approximately 100 CP seconds. 


6.0 DATA INPUT DESCRIPTION 

This section contains a detailed description of the card input deck 
required for execution. Figure 4 illustrates the overall card deck structure 
which is broken down into 5 major sections. Section 6,1 contains program 
control data defined with card types 1 through 4. Section 6.2 is the surface/ 
axis data file (card types 5 through 11). Section 6.3 is the wind tunnel data 
file (card types 12 through 15). Card types 16 through 18 make up section 6.4 
containing case description data. Section 6.5 is the pressure data file (card 
types ly through 24) which is repeated for each case to be processed. Section 



Figure 4. Overall card deck structure. 
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6.1 is always required for execution. Sections 6.2, 6.3, 6.4, and 6.5 are 
optional depending on the input options defined on CARD 1. Each of the five 
major sections are described separately. 


6.1 Program Control Data (CARDS 1-4) 

The card arrangement for the program control data is shown in figure 5. 
Particular attention should be paid to the option control parameters on CARD . 1 
as they affect most of the downstream cards. CARDS 2A and 2B control which in- 
tegrated and wind tunnel loads are computed. CARD SET 3 controls the summary 
print option. 

In the detailed card descriptions that follow, each data field is listed 
with its card columns, format, descriptor name, and explanation. In addition, 

4 columns labeled R, S, I, and W denote the major computational options listed 
on CARD 1 as the Repunch option. Section data option, Integration option, and 
Wind tunnel option. The Repunch and Section data options are not currently in- 
corporated in FSLIP but have been included for compatibility reasons because 
several input fields have been allocated for varibles that apply only to the 
Repunch or Section data options. If an X appears in a particular column, it 
signifies that the varible applies to that option and should be defined. If 
the column is blank, the varible does not apply to that option and the field 
may be left blank. If an I appears in the column, it denotes a varible that is 
not used in any computation but provides information that will be printed as 
part of the page headers. 



Figure 5. Card arrangement for the program control data. 
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CARD 1 - OPTION CONTROL. 


The following options are not currently available: 
R0P=1 , R0P=2 
S0P=1 


c-c 

FORMAT 

DESCRIPTOR 

10 

11 

GOP 

20 

11 

POP 

30 

11 

R0P 

40 

11 

SOP 

50 

11 

I0P 

60 

11 

WOP 






EXPLANATION 


Geometry input option. 

= 0 : Surface/axis data not input. 

= 1 : Data on disk (TAPE20) . 

= 2 : Data read from cards, copied 
to disk. 

= 3 : Data computed from input and 
GDTAPE (TAPE30). 

= 4 : Data computed and punched from 
input and GDTAPE (TAPE30). 


Pressure data input option. 

= 0 : Data not input. 

= 1 : Data on cards (punched by SD&SS) 
= 2 : Data on disk ( TAPE 1 1- 19 ) . 


Repunch pressure data option. 

= 0 : Not desired. 

= 1 : Repunch ACP data with new x/c's. 
= 2 : Punch non-FLEXSTAB ACP data. 


Section data option. 

= 0 : Not desired. 

= 1 : Section data computed. 


Integration option. 

= 0 : Not desired. 

= 1 : Integrate pressures and print 
panel by panel details. 

= 2 : Integrate pressures but suppress 
panel by panel details. Summary 
print option (CARD SET 3) must 
be used to print loads. 
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CARD 2A - INTEGRATED LOADS SELECTION. 


OMIT this card if I0P=0 (CARD 1). 

The card column number corresponds to the load station number 
defined on CARD 6 or 10. One column for each load station - 
up to 50 maximum. 

Applies to all cases processed in this job. 


c-c 

FORMAT 

DESCRIPTOR 

H 

H 

D 

H 

EXPLANATION 

1-50 

50L1 

WGI 

1 

1 

X 

1 

Load station selection. 

= T : Loads at this station will be 
computed. 

= F (or blank) : Loads at this station 
will NOT be computed. 



22 











CARD 2B - WIND TUNNEL LOADS SELECTION. 


OMIT this card if W0P=0 (CARD 1). 

The card column number corresponds to a particular load as 
listed in the table below. One column for each load - 
up to 14 maximum. 

Applies to all cases processed in this job. 


c-c 

FORMAT 

DESCRIPTOR 

□ 

D 

a 

D 

EXPLANATION 

1-14 

14L1 

1 

1 

1 

1 

X 

Wind tunnel loads selection. 

= T : Loads at this station will be 
computed. 

= F (or blank) : Loads at this station 
will NOT be computed. 


Load assignments: 


Wind tunnel 
load number 
(WLN) 

Surface number 
(WTN on CARD13) 

1 

Description 

1 

1 

Wing loads - total. 

2 

1 

Wing loads - without a=0 term. 

3 

2 

Horizontal tail loads - total. 

4 ' 

2 

Horizontal tail loads - without a=0 term. 

5 

3 

Vertical tail loads - upper. 

6 

4 

Vertical tail loads - root. 

7 

5 

Forward fuselage - vertical loads. 

8 

5 

Forward fuselage - lateral loads. 

9 

6 

Aft fuselage - vertical loads on fuselage itself. 

10 

6 

Aft fuselage - tail induced vertical loads. 

11 

6 

Aft fuselage - total vertical loads. 

12 

6 

Aft fuselage - lateral loads on fuselage itself. 

13 

6 

Aft fuselage - tail induced lateral loads. 

14 

6 

Aft fuselage - total lateral loads. 
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CARD SET 3 - SUMMARY PRINT OPTION. 


A one page summary is produced for each load station 
specified. 


One card per load station - up to 50 maximum. 


c-c 

FORMAT 

DESCRIPTOR 

□ 

B 

B 

jQ 

EXPLANATION 

1-2 

12 

SPI 

l 

i 

X 

1 

Load station number (SAN on CARD 6 
or 10). Can be an integrated or 
additional load. 

6-7 

12 

SPW 




X 

Wind tunnel load number (WLN=1,14). 
If a wind tunnel load is computed 
that corresponds to the specified 
SPI, it can be printed along with 
the, SPI load. SPW should not be 
specified unless SPI is non-zero. 


CARD 4 - SUMMARY PRINT TERMINATOR. 


This blank card signifies the end of program control data 
and is always included. 


C-C 

FORMAT 

DESCRIPTOR 

R 

S 

I 

w 

EXPLANATION 

1-2 

12 

- 

X 

X 

X 

X 

Leave columns blank or zero. 

6-7 

12 

- 

X 

X 

X 

X 

Leave columns blank or zero. 
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6.2 Surface/Axis Data File (CARDS 5-11) 

This card section is used to create the surface/axis data file when GOP = 2, 
3, or 4. Once the file has been created, this card section is omitted from the 
input deck if GOP = 0 or 1. Some general usage guidelines are presented here 
followed by the detailed card input descriptions. 

Unlike the FLEXSTAB ALOADS module, FSLIP applies an integration specifi- 
cation to one thin or slender body at a time. More than one integration can 
be specified for a particular body. For each integration, the data file 
contains the effective area, bending arm, and torque arm for each panel on 
the specified body. Two methods are available for creating the data file 
which are discussed separately in sections 6.2.5 and 6.2.6. 

6.2.1 Thin body integrations .- Figure 6 shows an example of the integration 
geometry for a typical thin body. The panel coordinates are originally 
defined in the local thin body coordinate system (Xn,YN) as established in 
the FLEXSTAB GD module. An arbitrary load station is defined by the coordin- 
ates X^ Qj Y^ 0 and sweep angle A/\ which determines the bending (X/\) and torque 
(Ya) axes. The bending axis may cut through certain panels with the effective 
area of each panel normally taken as that portion outboard of the bending axis. 
The effective bending and torque arms are measured normal to the axes from the 
effective panel centroid. Note that a panel centroid aft of the torque axis 
produces a negative torque arm. 



Figure 6. Integration geometry for thin body loads. 
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When executing GOP = 3 or 4, the geometry subroutine rill automatically 
compute the effective panel geometry as described above. All panel areas 
inboard of the bending axis are set to zero. If the user wishes to override 
any computed values, the punched deck from GOP = 4 should be modified and 
resubmitted using GOP =2. 

6.2.2 Hinge moment integrations .- Control surface hinge moments can be com- 
puted as a special class of thin body integrations as shown in figure 7. In 
this case, the torque axis is aligned with the hinge axis of an aileron made 
up of 9 panels. If the effective areas of all the non-aileron panels is set 
to zero, the torque integration is equivalent to the hinge moment. 

When executing the automatic geometry option, the bending axis should be 
located inboard of the aileron panels so that the total area of the 9 panels 
is computed. Note, however, that the geometry subroutine will also compute 
a non-zero area for al 1 panels outboard of the bending axis. The user should 
correct the punched deck (from GOP = 4) by setting the areas of all non-aileron 
panels to zero. The modified deck is then input using GOP. = 2. 



Figure 7. Integration geometry for hinge moments. 


26 













6.2.3 Slender body integrations - An example of the integration geometry for 
a slender body is shown in figure 8. Slender bodies are defined by a series of 
aerocentroids lying along the local slender body Xm axis. Each aerocentroid 
has a radius R-j and interval Ax-j which form the equivalent of panels within one 
row. Both vertical and lateral force coefficients can exist at each aerocen- 
troid. The bending axis Y/\ is established at a point along the axis. The 
torque axis is assummed to be coincident with the Xm axis which implies that 
torque. loads are not normally computed for simple slender bodies. 

When executing the automatic geometry option, the integration geometry is 
determined in a manner unique to slender bodies. First, an integration inter- 
val is established by the coordinates Xpyg and X/\FT* All panel areas outside 
of this interval are set to zero. Effective panel areas within the interval 
are computed as shown on the figure. The bending axis location is specified 
by the coordinate X^n which is independent of Xt^ and Xa FT • Bending arms are 
computed from the midpoint of the effective panel area. The parameter MRC 
controls the sign convention for positive bending moments. 

The example shown in the figure represents an integration definition for 
computing vertical loads at a forward fuselage station. An identical integra- 
tion definition could be applied separately to compute lateral loads. Other 
types of load stations can be established by defining appropiate locations to 
^FWD’ ^AFT 5 anc * ^MR* Aft fuselage loads could be defined by placing XpyQ and 
Xmr at tne load station and placing Xnpj at any point aft of the last panel 
area. Loads on the complete slender body could be defined by placing XfWD 
ahead of the first panel and placing X^pj aft of the last panel. Bending 
moments (equivalent to a pitching moment) would be summed about X^p which 
could be placed at the body quarter chord or center of gravity. 


Y m Y a (Bending axis) 



u MRC = 1.0 for positive nose up 

MR MRC =-1.0 for positive tail up 

Figure 8. Integration geometry for slender body loads. 
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6,2.4 Additional load definitions .- This option is used to define any addition- 
al loads that are a linear combination of previously integrated loads. To illus- 
trate the general setup, a simple example is shown in figure 9. The total shear 
and bending at a aft fuselage station (L^.Lg) are to be computed. These loads 

are generated from the integrated loads on the aft fuselage itself ( L ^ , L g ) and 
the horizontal tail root loads (Lg-Lg), The component factors are assembled in 
matrix form as shown below. Each row of the matrix is read in using CARD SET 11 0 



Aft fuselage vertical shear 
L 2 = Aft fuselage bending 

l_ 3 = Horizontal tail shear, left 
L^= Horizontal tail shear, right 


Total aft fuselage shear = 
Total aft fuselage bending^ 
Total aft fuselage torque = 



Horizontal tail torque, left 
Horizontal tail torque, right 

L 1 + L 3 + L 4 

l 2 + ax.l 3 + ax*L 4 - l 5 - l 6 
0 
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1 


t? L 8 L J “ \}l 


L 2 L 3 L 4 L 5 L 6 


] 


0 0 

0 1 0 

1 Ax 0 

1 Ax 0 


0-10 
0 -1 0 


Shear 


factors 



Bending factors 
Torque factors 


A 


CARD 11. -1 

CARD 11.2 
CARD 11.3 
CARD 11.4 
CARD 11.5 
CARD 11.6 


6.2.5 Card input for GOP = 2. - The card arrangement for the surface/axis 
data file if GOP = 2 is shown in figure 10. Under this option, each inte- 
gration is defined on a panel by panel basis. In fact, each card record is 
directly copied to the unformatted disk file (TAPE 20). For each integration 
definition, the card sequence - CARD 6, CARD 7, CARD SET 8 - is repeated. 
Within this sequence, CARD 7 and CARD SET 8 is repeated for each row on the 
body. The order of the integration definitions is arbitrary. More than one 
integration may be specified for a particular body. The format is the same 
for both thin and slender bodies. 


After all integrations are specified, any additional loads are defined. 
The card sequence - CARD 10, CARD SET 11 - is repeated for each additional 
load definition. Note that CARD 9 is not used in this deck. 

6.2.6 Card input for GOP = 3 or 4. - A different card arrangement is used 
for this option as shown in figure 11. The deck format is essentially the 
same except that all of the row and panel data cards for a given integration 
are replaced by a single card which specifies the integration axis. CARD 9A 
is used for thin bodies and CARD 9B is used for slender bodies. The geometry 
subroutine will then interface the axis data with the FLEXSTAB GDTAPE and 
automatically generate the row and panel data. Any additional load defin- 
itions follow the integration definitions as before. The disk file created 
by this option is identical to that for GOP = 2. 


29 





FIRST 

ADDITIONAL 

LOAD 



SLENDER BODY 
INTEGRATION 


THIN BODY 
INTEGRATION 


Figure 11. Card arrangement for the surface/axis data file 
if GOP = 3 or 4. 


CARD 5 - NUMBER OF LOAD DEFINITIONS. 

If G0P=0 or 1, OMIT this card section and skip to CARD 12. 


The total number of load definitions (NSAD+NALD) must not 
exceed 50. 


c-c 

FORMAT 

DESCRIPTOR 

R 


I 

D 

EXPLANATION 

1-2 

12 

NSAD 

1 

1 

X 


Number of integrations defined with 
card sequence 6-7-8 (if G0P=2) or 
card sequence 6-9 (if G0P=3 or 4). 

31-32 

12 

NALD 

1 

1 


1 

Number of additional loads defined 
with card sequence 10-11. 
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If G0P=2, the card sequence - CARD 6, CARD 7, CARD SET 8 - is repeated 

for each integration definition (NSAD times). 

If G0P=3 or 4, the card sequence - CARD 6, CARD 9 - is repeated for each 
integration definition (NSAD times). 


CARD 6 - LOAD STATION DATA. 


C-C 


FORMAT 


DESCRIPTOR 


W 


EXPLANATION 


1-2 


5-20 


12 


4A4 


SAN 


SANAME 


Unique number assigned to this load 
station (1 to 50). 


Name given to this load station. 


23-30 


2A4 


SABODY 


Name of body associated with this 
load station. Must match exactly 
(left justified) with a CPBODY 
name defined in pressure data 
files (CARD 22 )„ These are the 
body names used in the GD program. 


S3 


II 


ITC 


Integration type code-;' 

= 1 : Slender body - vertical load. 


=2 : Slender body 
= 3 : Thin body. 


lateral load. 


36 


II 


SC 


Symmetry code. 

= 0 r Body off centerline. 

= 1 : Body on centerline. 

(can leave blank if G0P=3 or 4). 


39-40 


12 


NR 


Number of rows on body. 

Always = 1 for slender bodies, 
(can leave blank if G0P=3 or 4). 


41-50 


F10.0 


SREF 


Reference area (square feet). 
Default = 1.0 


51-60 


F10.0 


BREF 


Reference semispan (bending arm), 
Default = 1.0 (inches). 


61-70 


F10.0 


CREF 


Reference chord (torque arm). 
Default = 1.0 (inches). 


71-80 


F10.0 


CAVG 


Average chord (inches). 














































CARD 7 - ROW DATA. 


The card sequence - CARD 7, CARD SET 8 - is repeated for each 
row on the body (NR times- CARD 6). 


c-c 

FORMAT 

DESCRIPTOR 

R 

S 

I 

w 

EXPLANATION 

1-2 

12 

RN 

■ 

■ 

X 

■ 

Row number. 

3-10 

F8.0 

ETA 

■ 

X 

1 

■ 

Nondimensional semispan station. 

11-20 

F10.0 

YL 

1 

X 

1 

1 

Y coordinate in local system of 
row centroid (inches). 

29-30 

12 

NP 

■ 

■ 

X 


Number of panels in row. 

31-40 

F10.0 

CROW 

■ 

X 

■ 

■ 

Chord of row at centroid (inches). 


CARD SET 8 - PANEL DATA. 

Contains NP cards, one card for each panel on row, 
leading to trailing edge. 


C-C 

FORMAT 

1-10 

215 

11-20 

F10.0 

21-30 

F10.0 

31-40 

F10.0 

41-50 

F10. 0 



EXPLANATION 


Panel index. 

1st integer = row number. 
2nd integer = panel number. 


Effective panel area outboard of 
load station (square inches). 
If entire panel is inboard of 
bending axis, set SP = 0.0 . 


Effective bending arm of panel (in.), 


Effective torque arm of panel (in.) 
(positive for effective panel 
centroid ahead of torque axis). 


New value of x/c, nondimensional x 
coordinate of panel aerocentroid, 
for repunch option. 




























































CARD 9A - THIN BODY AXIS DATA. 


c-c 

FORMAT 

DESCRIPTOR 

□ 

m 

D 

II 

EXPLANATION 

1-10 

F10.0 

XAZ 

1 

l 

X 

1 

X coordinate in local system of 
integration axis origin (inches). 

11-20 

F10. 0 

YAZ 

1 

l 

X 

1 

Y coordinate in local system of 
integration axis origin (inches). 

21-30 

F10.0 

LAD 

1 

i 


1 

Sweep angle of integration axis (deg). 


CARD 9B - SLENDER BODY AXIS DATA. 


C-C 

FORMAT 

DESCRIPTOR 

13 

a 

D 

S3 

EXPLANATION 

1-10 

F10.0 

XFWD 

1 

I 

X 

1 

X coordinate in local system of 
forward limit of integration (inches). 

11-20 

F10.0 

XAFT . 

1 

1 

X 

1 

X coordinate in local system of 
aft limit of integration (inches). 

21-30 

F10.0 

XMR 

1 

1 

X 

1 

X coordinate in local system of 
moment reference point (inches). 

31-40 

F10.0 

MRC 

1 

1 

X 

1 

Moment reference sign convention. 

= 1.0 : Positive nose up or to right. 
= -1.0 : Positive tail up or to right. 
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The card sequence - CARD 10, CARD SET 11 - is repeated for each 
additional load definition (NALD times - CARD 5). ' p 


CARD 10 - LOAD STATION DATA. 


c-c 

FORMAT 

DESCRIPTOR 

B 

B 


i 

EXPLANATION 

1-2 

12 

SAN 

1 

1 


I 

Unique number assigned to this 
load station (1 to 50). 

5-20 

4A4 

SANAME 

■ 

1 

X 


Name given to this load station. 
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ITC 

1 


X 

1 

Integration type code. 
= 4 : Additional load. 

36 

11 

SC 

1 

1 

X 

1 

Symmetry code. 

= 0 : Load station off centerline. 
= 1 : Load station on centerline. 

38-40 

13 

NT 

1 

1 


i 

Number of component loads defined 
with CARD SET 11. 

41-50 

F10.0 

SREF 

1 

1 


i 

Reference area (square feet). 
Default =1.0 

51-60 

F10.0 

BREF 

1 

1 

X 

i 

Reference semi span (bending arm). 
Default = 1.0 (inches) 

61-70 

F10.0 

CREF 

1 

1 


i 

Reference chord (torque arm). 
Default =1.0 (inches) 
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CARD SET 11 - COMPONENT FACTORS. 

Repeated NT times - CARD 10. 


c-c 

FORMAT 

DESCRIPTOR 

H 

m 

n 

Q 

EXPLANATION j 

1-2 

12 

CN 

1 

1 

X 

l 

Load station number (SAN) of this | 

component (1 to 50). 

If CN = 0, VFAC, BFAC, and TFAC 
contain simple constants added to j 

additional load. Leave CL,CT blank. j 

6 

11 

CL 



X 


Component location. j 

= 1 : Left side. 

= 2 : Right side. j 

= 3 : Centerl ine. ] 

10 

11 

CT 



X 


Component type. 

= 1 : Shear load. 

= 2 : Bending load. 
= 3 : Torque load. 

11-20 

F10.3 

VFAC 

■ 

■ 

X 

■ 

Shear factor for this component. 

21-30 

F10.3 

BFAC 

■ 

■ 

X 


Bending factor for this component. 

- . • i 

31-40 

F10.3 

TFAC 



X 


Torque factor for this component. j 


NOTE : If...SC=0 (on CARD 10), define the left hand components only. 

Both left hand and right hand loads will be computed 
automatically. 

If SC=1 (on CARD 10), additional load station is on centerline 
which means left hand, right hand, and centerline loads can be 
specified as components. 


If the geometry input option is the only option requested 
(POP-ROP=SOP=IOP=WOP=0) , the remaining CARDS 12-24 are omi tted 

































6.3 Wind Tunnel Data File (CARDS 12-15) 

The card arrangement for the wind tunnel data file is shown in figure 12. 
These cards are included only if WOP = 2 on CARD 1. The card sequence - 
CARD 13, CARD SET 14 - is repeated for each of 6 possible load stations. Any 
station that is not applicable to the configuration is simply omitted. For 
each station, CARD SET 14 contains 15 cards which define the airload coeffi- 
cients as specified in tables 3 thru 7. Two separate sets of coefficients 
can be entered for the vertical tail. 


EOF TERMINATOR 



Figure 12. Card arrangement for the wind tunnel data file. 


37 



If W0P=0 or 1 , OMIT this card section and skip to CARD SET 16. 


CARD 12 - DECK IDENTIFICATION. 


C-C 

FORMAT 

DESCRIPTOR 

R 

S 

I 

w 

EXPLANATION 

1-72 

18A4 

WID 

1 

1 

1 

X 

Wind tunnel deck identification. 
(Alpha-numeric) 
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The card sequence - CARD 13, CARD SET 14 is repeated for each of the 6 
possible load - stations to be defined. 


CARD 13 - LOAD STATION DATA. 


c-c 

FORMAT 

DESCRIPTOR 

T 

T] 

I 

El 

EXPLANATION . | 

1-2 

12 

WTN 




X 

Load station number. j 

= 1 : Wing. 

= 2 : Horizontal tail. 

= 3 : Vertical tail - upper. 

= 4 : Vertical tail - root. 

= 5 : Forward fuselage. 

= 6 : Aft fuselage. j 

! 5-20 

4A4 

WTNAME 

- - - - — 

■ 

■ 

1 

X 

1 

Name given to this load station. 

21-30 

F10.0 

SWT 

■ 

■ 

■ 

X 

Reference area (square feet). 

31-40 

F10.0 

BWT 

■ 

■ 

■ 

X 

Reference semi span (inches). 

41-50 

F10.0 

CWT 

■ 

1 

1 

X 

Reference chord (inches). 

53-59 

F7.0 

XHT 


1 

1 

X 

Horizontal tail, longitudinal 
moment transfer arm (inches). 
(Ax between horizontal tail and 
aft fuselage load stations) 

60-66 

■ 

F7.0 

YHT 




X 

Horizontal tail, lateral 
moment transfer arm (inches). 
(Ay between horizontal tail and 
aft fuselage load stations) 

67-73 

F7.0 

XVT 




X 

Vertical tail root, longitudinal 
moment transfer arm (inches). 

(Ax between vertical tail root and 
aft fuselage load stations) 

74-80 

F7.0 

ZVT 




X 

— . 

Vertical tail root, vertical 
moment transfer arm (inches). 

(az between vertical tail root and 
aft fuselage load stations) 


NOTE : XHT, YHT, XVT, and ZVT are defined for the aft fuselage 

load station only (WTN=6). Refer to equations 16, 18, and 19. 
Leave blank for other load stations. 
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CARD SET 14 - AIRLOAD COEFFICIENTS. 

Contains 15 cards as specified in : Table 3 - Wing station' 

Table 4 - Horizontal tail station 
Table 5 - Vertical tail 
Table 6 - Forward fuselage station 
Table 7 - Aft fuselage station 


c-c 

FORMAT 

DESCRIPTOR 1 R 1 S I 

w 

EXPLANATION 

6-10 

! 

, 15 

! ! ; 

NSEO ! 

X 

Component sequence number. 
(See tables) 

11-20 

E10.2 

CV 

• 

; 

X 

Shear coefficient for this 
component effect. 

21-30 

E10.2 

CB 

X 

Bending coefficient for this 
component effect. 

31-40 

E10.2 

CT 

...... 

X 

Torque coefficient for this 
component effect. 

43-63 

3A7 

DES 

' 

X 

Descriptive name (Alpha-numeric) 
of this component effect. 

(See tables) 

64-80 

; Not 
j read 

f ? 

Mi 

: i . U. 

X 

These columns are available to the 
user for a deck ID. 


TABLE 3. AIRLOAD COEFFICIENTS FOR TABLE 4. AIRLOAD COEFFICIENTS FOR 

WING STATION HORIZONTAL TAIL STATION 

WTN=1 Refer to equation 8. WTN=2 Refer to equation 9. 


CARD 

NSEQ 

DES (Component effect) 


CARD ' NSEQ j DES (Component effect) 

14.1 

101 

ALPHA = 0 


14.1 201 | ALPHA = 0 

14.2 

102 

ALPHA 


14.2 202 < ALPHA 

14.3 

103 

ALPHA DOT 


14.3 203; DELTA H 

14.4 

104 

DELTA SPOILER 


14.4 1 204 1 ALPHA DOT 

14.5 

105 

ROLL DAMPING, P 


14.5 205: BETA 

14.6 

106 

PITCH DAMPING, Q 


14.6 i 206 ! DELTA H PRIME 

1A.7 

107 

BETA, ALPHA=0, A/S 


14.7 207 DELTA SPOILER 

14.8 

108 

BETA*ALPHA, A/S 


14.8 ; 208 DELTA SPOILER C/0 

14.9 

109 

BETA, ALPHA=0, SYM 


14.9 209 ■: ROLL DAMPING, P 

14.10 

110 

BETA*ALPHA, SYM 


14.10:210 PITCH DAMPING, Q 

14.11 

111 

BLANK FILLER, NOT USED 


14.11 211 BLANK FILLER, NOT USED 

14.12 

112 

BLANK FILLER, NOT USED 


14.12 212 BLANK FILLER, NOT USED 

14.13 

113 

BLANK FILLER, NOT USED 


14.13 213 . BLANK FILLER, NOT USED 

14.14 

114 

BLANK FILLER, NOT USED 


14.14 214 ! BLANK FILLER, NOT USED 

14.15 

115 

BLANK FILLER, NOT USED 


14.1512151 BLANK FILLER, NOT USED 
J 1 .. . 
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TABLE 5. AIRLOAD COEFFICIENTS FOR 

UPPER VERTICAL TAIL STATION 


WTN=3 Refer to equation 10. 


CARD 

NSEQ 

DES (Component effect) 

14.1 

301 

BETA, ALPHA=0 

14.2 

302 

BETA* ALPHA 

14.3 

303 

DELTA H PRIME 

14.4 

304 

DELTA SPOILER 

14.5 

305 

DELTA RUDDER, UPPER 

14.6 

306 

DELTA RUDDER, LOWER 

14.7 

307 

ROLL DAMPING, P 

14.8 

308 

YAW DAMPING, R 

14.9 

309 

BLANK FILLER, NOT USED 

14.10 

310 

BLANK FILLER, NOT USED 

14.11 

311 

BLANK FILLER, NOT USED 

14.12 

312 

BLANK FILLER, NOT USED 

14.13 

313 

BLANK FILLER, NOT USED 

14.14 

314 

BLANK FILLER, NOT USED 

14.15 

315 

BLANK FILLER, NOT USED 


Airload coefficients for the vertical tail root station are input using 
the same format as TABLE 5 with NSEQ numbers in 400 series. Vertical tail 
root loads should be defined if tail induced lateral loads at the aft 
fuselage station are. to be computed. 


TABLE 6. AIRLOAD COEFFICIENTS FOR 
FORWARD FUSELAGE STATION 


WTN=5 Refer to equations 11&12 


CARD 

NSEQ 

DES (Component effect) 

14.1 

501 

ALPHA=0 (VERTICAL) 

14.2 

502 

ALPHA (VERTICAL) 

14.3 

503 

ROLL DAMP, P (LAT) 

14.4 

504 

BETA (LATERAL) 

14.5 

505 

BLANK FILLER, NOT USED 

14.6 

506 

BLANK FILLER, NOT USED 

14.7 

507 

BLANK FILLER, NOT USED 

14.8 

508 

BLANK FILLER, NOT USED 

14.9 

509 

BLANK FILLER, NOT USED 

14.10 

510 

BLANK FILLER, NOT USED 

14.11 

511 

BLANK FILLER, NOT, USED 

14.12 

512 

BLANK FILLER, NOT USED 

14.13 

513 

BLANK FILLER, NOT USED 

14.14 

514 

BLANK FILLER, NOT USED 

14.15 

515 

BLANK FILLER, NOT USED 


TABLE 7. AIRLOAD COEFFICIENTS FOR 
AFT FUSELAGE STATION 


WTN=6 Refer to equations 13&14 


CARD 

NSEQ 

DES (Component effect) 

14.1 

601 

ALPHA=0 (VERTICAL) 

14.2 

602 

ALPHA (VERTICAL) 

14.3 

603 

BETA , ALPHA=0 , C/0 ( LAT ) 

14.4 

604 

BETA*ALPHA,C/0 (LAT) 

14.5 

605 

DELTA H PRIME (LAT) 

14.6 

606 

DELTA RUD, LOWER (LAT) 

14.7 

607 

ROLL DAMPING, P (LAT) 

14.8 

608 

BETA (LATERAL) 

14.9 

609 

BLANK FILLER, NOT USED 

14.10 

610 

BLANK FILLER, NOT USED 

14,11 

611 

BLANK FILLER, NOT USED 

14.12 

612 

BLANK FILLER, NOT USED 

14.13 

613 

BLANK FILLER, NOT USED 

14.14 

614 

BLANK FILLER, NOT USED 

14.15 

615 

BLANK FILLER, NOT USED 
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CARD 15 


EOF TERMINATOR. 


Terminates wind tunnel data file. 


c-c 

FORMAT 

DESCRIPTOR 

R 

S 

I] 

w 

EXPLANATION j 

1 

. 


EOF 

I 

1 

1 

X 

! 

7-8-9 multipunch. [ 


6,4 Case Description Data (CARDS 16-18) 

The card arrangement for the case description data is shown in figure 
13. CARD SET 16 defines aerodynamic parameters (a, 3 , etc.) describing 
each specific case to be processed. It is required for execution of the 
wind tunnel option (WOP = 1 or 2). For the integration option, it provides 
printout header information only, and is optional. (Alpha, beta, and Qbar 
values only are obtained from the pressure data files for the integration 
option,, ) CARD SET 16 contains one card for each parameter to be defined 
for each case. However, to minimize the card count, an automatic recycle 
feature is incorporated that works as follows: All parameter values for 

case 1 are initially defaulted to zero. The user defines any non-zero 
parameters. These values are automatically used for each succeeding case 
until reset with an additional card defining the new value. A simple 
example is included after the card descriptions at the end of this section. 

CARD 17 serves as an EOF terminator for CARD SET 16. It is always 
included even if CARD SET 16 is omitted. CARD 18 controls the number of cases 
processed for the pressure data, integration, and wind tunnel options. 



Figure 13. Card arrangement for the case description data. 
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If P0P=0 AND W0P=0, OMIT this card section. 


CARD SET 16 - SPECIFIC CASE DATA. 

Required for wind tunnel option. 

Optional for integration option. 

This card set incorporates an automatic recycle feature. Only non-zero 
value parameters need be defined and/or thereafter only if they change 
for a succeeding case. Order does not matter as long as the case number 
for any specific parameter always increases. The use of this card set 
is clarified in the example after CARD 18. 





CARD 17 


EOF TERMINATOR 


This card terminates 
even if CARD SET 16 i 



CARD 18 - NUMBER OF CASES 
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,RD SET 16 and is included 
omitted. 

EXPLANATION 

7-8-9 multipunch. 


EXPLANATION 

Number of cases in this run (1-9). 

Note that if a decimal point is added 
in column 2, this card can be used 
with the pressure data files (CARDS 
19-24) to execute the FLEXSTAB PDPLOT 
program (Level 1.02 only). 






Example for the case description data - 

Assume the following 4 parameters are to be defined for 4 cases 
to be processed by the wind tunnel option : , 

Case 1 : Qbar=1000 , ct=0 , 6=0 , <5h=0 

Case 2 : Qbar=1000 , a=5 , 6=0 , 6h=0 

Case 3 : Qbar=1000 , a=0 , 6=0 , <$h=-5 

Case 4 : Qbar= 500 , a=0 , 6=5 , <$h=0 


CARD SECTION 16-18 would consist of the following cards : 


Qbar, cases 1-3 
Qbar, case 4 

a, case 2 (case 1 defaults to 0) 

а, cases 3-4 

б, case 4 

<5h, case 3 (cases 1-3 default to 0) 

<$h, case 4 

EOF 

Number of cases 


Note that if the integration option were executed without the 
wind tunnel option, CARD SET 16 would contain CARDS 16.6 and 
16.7 only. Alpha, Beta, and Qbar values would be obtained 
directly from the pressure data files. 


CARD 

Cl 

PI 

PV 

16.1 

■ 

1 

03 

1000. 

16.2 

4 

03 

500. 

16.3 

2 

01 

5. 

16.4 

3 

01 

0 . 

16.5 

4 

02 

5. 

16.6 

3 

14 

-5. 

16.7 

4 

14 

0 . 

17 

18 

7/8/9 

4. 
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6.5 Pressure Data Files (CARDS 19-24) 

This card section is for the creation of the pressure data files. If 
POP = 0 or 2, these cards are omitted. This entire card section is normally 
punched by the FLEXSTAB SD&SS program (references 2-4). Current versions of 
FLEXSTAB punch only thin body pressures, but slender body force coefficients 
can be manually added to the deck punched by FLEXSTAB. 

The card arrangement is shown in figure 14. CARDS T9, 20 and 21 are 
identification and control data. The card sequence -CARD 22, CARD 23, CARD 
SET 24- is repeated for each thin body. Within this sequence, CARD 23, CARD 
SET 24 is repeated for each row on the body. Any slender bodies are added to 



Figure 14. Card arrangement for the pressure data files. 
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the deck using the same format as for thin bodies. (The slender body data is 
analogous to a thin body with one row.) If any slender bodies are added, the 
number of bodies entered on CARD 21 must be changed to reflect the total num- 
ber of bodies now in the deck. . 

The entire card sequence 19-24 is repeated for any additional cases. It 
is important to note that the pressure decks punched by FLEXSTAB contain a 
"STEADY PRESSURE DISTRIBUTION" header card at the beginning of each case. 

These header cards must be discarded from each case for execution in both this 
program and the FLEXSTAB PDPLOT program. 


If P0P=0 or 2 , OMIT this card section. 


CARD 19 - CASE IDENTIFICATION. 


c-c 

FORMAT 

lisnniEi 


1-72 



18A4 

! 

CID ! X 

t 

L_j 

X 

X 

Case title. 

This title card is the same as input 
to the SD&SS program. It is printed 
as part of the page header for the 
repunch, section, integration, and 
summary print options. 


CARD 20 - USER IDENTIFICATION. 



FORMAT 

DESCRIPTOR 

Mill 

EXPLANATION 

1-72 

18A4 

UID 

x 1 x 1 x ! 
L L— 1-J 

User subtitle. 
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CARD 21 - CASE CONTROL. 


C-C j 

FORMAT ! 

DESCRIPTOR 

R i 

11 

I j w 

T 

i 

EXPLANATION 

1-10 I 

FI 0.4 

i 

NTB 

i 

X 

X 

Number of thin bodies PLUS any • 
slender bodies manually added 
to this case. - 

11-20 

F10.4 

MR 

X 

X 

; i 

X ; 

? 

Motion reference. 






{ 

i 

) 

= 1.0 : Symmetric motion. 

= 2.0 : Asymmetric motion. 

21-30 

F10.4 

Ml 

X 

I 

l 

I ! 

i 

Mach number. 

31-40 

F10.4 

A1 

X 

I 

I ; 

Angle of attack (deg). 

41-50 i 

F10.4 

B1 

X 

I 

• 

I j. 

Angle of sideslip (deg). 

51-60 : 
-■l 

F10.4 

Q1 



\L 

X 

1L. 

Dynamic pressure (psf). 
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The card sequence - CARD 22, CARD 23, CARD SET 24 - is repeated 
for each body in this case (NTB times). 


CARD 22 - BODY DATA. 


C-C 

FORMAT 

DESCRIPTOR 

P 

s 

TP 

w 

EXPLANATION 

1-8 

2A4 


X 

X 

I X 


Name of body (from GD program). 

11-20 

F10.4 

NAF 

X 

X 

: X 


Number of rows on body. 






: 


(always equals 1 for slender bodies) 

21-30 

F10.4 

THETA 

X 

I 

I 


Dihedral angle of thin body (deg). 








| 


(blank or zero for slender bodies) 


The card sequence - CARD 23, CARD SET 24 - is repeated 
for each row on the body (NAF times). 

CARD 23 - ROW DATA. 

C-C FORMAT f DESCRIPTOR 1 R ! sT l 1 w] EXPLANATION 













CARD SET 24 


PANEL DATA. 


Contains NPT cards, one card for each panel on row, leading to trailing edge. 


c-c 

FORMAT 

DESCRIPTOR 

m 

m 

D 

Bl 

EXPLANATION 

1-10 

F10.4 

XC 

1 

1 

1 

1 

X/C , nondimensional x coordinate 
of aerocentroid. . . 

11-20 

F10.4 

CPS 

X 

' 

X 

X 


Pressure coefficient (ACP) due to 
symmetric motion. 

For thin bodies: If MR=1.0=symmetric 
motion, CPS is used for both left and 
right hand surfaces, so that CPR and 
CPL need not be defined. (CPS-CPR=CPL) 

For slender bodies: CPS is the 
vertical force coefficient (DELTA 
CP(ZM) from the SD&SS printout). 
Applies to left and right hand or 
centerline bodies. 

21-30 

F10.4 

CPR 

X 

X 

X 

1 

Pressure coefficient for the right 
hand surface aerocentroid. 

31-40 

F10.4 

CPL 

X 

X 

X 


Pressure coefficient for the left 
hand surface aerocentroido 

For thin bodies: If MR=2.0=asymmetric 
motion, CPR^CPL^CPS. Note that for 
a positive sideslip (nose left), FLEX 
STAB sign conventions for a vertical 
tail on the centerline (THETA=+90) 
result in CPR being positive and CPL= 
-CPR. Thus only CPL is used to com- 
pute loads so that a positive side- 
slip produces a negative vertical 
tail load. 

For slender bodies: CPR is the latera 1 
force coefficient, DELTA CP(YM), on 
the right hand OR centerline body. 

CPL is the lateral force coefficient 
on the left hand slender body. 

41-50 

F10.4 

XR 

X 



1 

1 

1 

X coordinate in Reference system of 
aerocentroid (inches). 
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7.0 OUTPUT DESCRIPTION 


Output from FSLIP consists of line printer listings, punched cards, and 
disk permanent files as described in section 4.2. Each of these is briefly 
outlined below along with equations for estimating the amount of printed or 
punched output. 

7.1 Printed Output 

Printed output is produced by 4 of the major program options as described 
below. Specific details of the printed output are not presented here as the 
printout makes generous use of headers and descriptors. See section 8.0 for 
example output listings. 

7.1.1 Geometry option .- If GOP = 3 or 4, the surface/axis data file is created 
by using the FLEXSTAB GDTAPE. A printout is generated which lists complete 
details of each integration definition including effective areas and arms com- 
puted for each panel on the specified body. Any panels cut by the bending axis 
are flagged. Total panel area outboard of the bending axis is also listed. 
Details of any additional load definitions are printed out. An example of these 
listings is shown in section 8.1. The amount of output can be estimated from 
the following equation: 

Number of pages = 1.5 * NSAD + NALD + 1 

where NSAD and NALD are as specified on CARD 5 

7.1.2 Integration option .- If I0P = 1, a printout is generated for each inte- 
gration definition set true on CARD 2A. The listing includes a panel by panel 
description of the integration process. After all integrations are performed, 
any additional load definitions are listed. The printout is then repeated for 
any succeeding cases. Section 8.2 contains an example of this printout. If 
IOP = 2, this printout is suppressed. The amount of output can be estimated 
from the following equation: 

Number of pages = (1.5 * NSAD + NALD + 1) * NC 

where NSAD and NALD are now the number of integrations and 
additional loads set true on CARD 2A and NC is the number 
of cases specified on CARD 18. 

7.1.3 Wind tunnel option .- A printout is generated for each load station 

showing the component loads due to each aerodynamic effect. An example is 

shown in section 8.2. The amount of output varies from 1 to 5 pages per case 
depending on which stations are set true on CARD 2B. The 5 stations consist 
of wing, horizontal tail, vertical tail, forward fuselage, and aft fuselage. 

7.1.4 Summary print option .- This option produces a concise summary of the 

total loads and coefficients for each specified load station for all cases 
processed. If IOP = 2, this option must be used to print the total integrated 

loads. The amount of output consists of 1 page per load station specified with 

CARD 3. 
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7.2 Punched Output 


The only punched card output is produced by the GOP = 4 option. It con- 
sists of a complete surface/axis data file which may be input using GOP - 2. 
The format of the punched deck is described in section 6.2. The number, of 
punched cards can be estimated from the following equations: 

For each integration defined with CARD 6: 

Number of cards = NR + NP + 1 

where NR = number of rows on body 
NP = number of panels on body 

For each additional load specified with CARD 10: 

Number of cards = NT + 1 

where NT = number of terms (CARD 10) 


7.3 Disk File Output 

Disk files produced by FSLIP consist of the pressure data files (TAPE 11 
to 19), the surface/axis data file (TAPE 20), and the wind tunnel data file 
(TAPE 40). The detailed format of these files is not presented as they are a 
direct one-for-one unformatted copy of each card record. Thus the user is 
referred to sections 6.2, 6.3, and 6.5 for details of the file formats. 


8.0 EXAMPLE PROBLEMS 

This section includes 3 example problems which illustrate the major program 
options and suggested job sequencing. Section 8.1 presents an example of cre- 
ating the integration geometry data base using the FLEXSTAB GDTAPE for input. 
Section 8.2 is an example which creates a revised geometry data base and wind 
tunnel coefficient data base from card input and then executes the integration 
and wind tunnel loads options. Section 8.3 is an example which executes the 
integration option only using previously created data bases with minimum input/ 
output. All three examples are based on runs from the airloads research study 
being conducted on the B-l aircraft. Each section includes a brief discussion 
followed by listings of the card input and program printouts. 


8.1 Geometry Option Only 

This example represents what would normally be the first job executed through 
FSLIP. The only option exercised is GOP = 4 which will punch the integration geo- 
metry for the B-l airload measurement stations as defined in figure 15. Figure 
16 shows the equivalent FLEXSTAB GD model which is composed of 7 thin bodies and 
1 slender body. Note that the wing and vertical tail are both split into 2 sep- 
arate thin bodies. 

Integration axes are shown at the 8 load stations which were arbitrarily as- 
signed surface/axis numbers 1 through 8, Separate vertical and lateral Integra- 
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tions are defined for the forward and aft fuselage stations. The additional 
loads option is used to define 3 new loads (surface/axis numbers 31-33) for com- 
puting total aft fuselage loads. First, the two vertical tail stations are sum- 
med to get the total vertical tail root loads. Second, the horizontal tail com- 
ponents are added to the aft fuselage to get total vertical loads at the aft 
fuselage station. Third, vertical tail root and horizontal tail components are 
added to the aft fuselage to get total lateral loads at the aft fuselage station. 

Note that the wing integration applies to WING2 only. The geometry sub- 
routine will compute effective areas for all panels outboard of the Xa axis, 
but it was desired to neglect the area of the two shaded panels to account for 
the nacelle and fairings. For this reason, the punched deck from this job must 
be modified and resubmitted with GOP = 2 as shown in the next example. 




Figure 15. B-l airload measurement stations. 
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Thin bodies: 



Slender bodies: 

1 FUSELAGE 1 row , 20 panels 
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Figure 16. FLEXSTAB aerodynamic model of the B-l. 
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Card input listing for example 8.1 


C AR 0 1 2 3 4 5 6 7 8 

Ml 1 23 456789 ui234 56 789t.il 234 5678901 2345 67690123456789ui2 3456789012345676901 234567890 


1 


GOP 

4 


POP 0 

POP 0 


SOt 0 

I UP 0 

WLP 0 



> 





SUMMARY print 

TERMINATOR 





1 

08 

MS AD 

SG 


03 

nald 





4 

1 

MING 

, — , 

AXIS 

WING2 

3 

0 9 

1946.00 

820.08 

184.05 

170.85 

9 


1161. 

37 


239.92 

63.52 







6 

2 

TAIL 

- SG 

H0R2TAIL 

3 

0 6 

238,77 

259.03 

149.38 

132.74 

7 


1532. 

01 


10.75 

0. uO 







8 

9 

3 

VERT 

1082. 

,l AIL 

— SG 
136.5o 

VSRTT2P 

O.uO 

3 

1 6 

247,40 

206.76 

108.95 

172.30 

10 

4 

VERT 

TAIL 

- ROOT 

VERTTaXL 

3 

1 2 

247.40 

206.76 

188.95 , 

172.30 

IT 


1535. 

56 


75.00 

0. 00 





184,05 


1'2 

5 

FWD 

F OS 

SG 

VERT 

FUS EL/GE 

1 

1 1 

1946.00 

620.08 


13 


. U.Uvl 


528.50 

528.50 


l.CC 



184.05 


1*4 

6 

FWD 

FUS 

SG 

LAT 

FUSELAGE 

2 

1 1 

1946.00 

820.08 


15 


0. 

96 


528. St* 

_ 523.50 


l.fcu 



164.05 


16 

7 

APT 

F US 

SG 

VcRY 

FUS EL/ Gt 

1 

1 A 

1946.00 

820.08 


17 



5y 

18uD.OO 

±33 f , SO 


-1.00 





v« 

8 

FUS 

SG 

LAT 

FUS ELaGE 

2 

1 A 

1946.00 

820.08 

184.05 


19 


1337. 

50 

1800.00 

1337. 5J' 


-l.ou 





70 

2* 

VT ROOT 

TO 

TAL 


4 

1 6 

267.40 

206.76 

188.95 


21 

03 

3 

1 


a. GO 

6a. 5 6 


— 46, 44 





72 

03 

3 

2 


u.uO 

1.00 


0.00 





7 7 

03 

3 

3 


0. JO 

O.uO 


i.00 





24 

04 

3 

1 


1.00 

O.OU 


O.uO 





’6 

3 ? 

3 

2 


o . ou 

1.00 


u.OO 





’6 

3 

3. 


0 * V 0 

0 « v i) 


1 « Go 





27 

32 

AFT 

FU5 

SG 

V-TOT 


4 

1 6 

1946.00 

820.08 

184.05 


78 

37 

3 

1 


A * 00 

O.uO 


0.00 





29 

37 

3 

2 


0 * 0 J 

1 . uU 


U.uO 





30 

37 

1 

1 


A. 00 

244.50 


O.uO 





31 

19 

2 

I 


A. 10 

244.50 


y » uO 





3? 

19 

1 

3 


u. 00 

-1.00 


O.uO 





33 

1 9 

? 

3 


0. 00 

-1.00 


U.uO 





34 

33 

AFT 

FUS 

SG 

l-tot 


4 

1 10 

1946.00 

820.08 

164,05 


35 

08 

3 

1 


l.OQ 

0.00 


o.oo 





36 

06 

3 

2 


O.uO 

i.00 


0.00 





37 

08 

3 

3 


0. Go 

U.uO 


A. 00 





38 

31 

3 

1 


A, >)0 

198 . 0 6 


41.00, 





39 

31 

3 

2 


0. 1u 

O.Ou 


l.&Ci 





4 o 

39 

3 

3 


u.OJ 

— i.OC) 


9 . 00 





41 

02 

1 

1 


o.oo 

0.00 


10.75 





4? 

07 

2 

1 


0 . »?0 

0. Ou 


-10.75 





43 

02 

1 

2 


0.00 

O.uO 


l.Oy 





44 

02 

2 

2 


0. 00 

u.oo 


-1.00 
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Program output listing for example 8.1 


GEOMETRY OPTION « 4 


8 SURFACEmiS DEFINITIONS Tu 8E CONFUTED AKD punched 
USING EXSTAB GOT/, PE t FILE 1 


CASE 10 » 81 AR3 GD-2C* •••67»?W$ 

e t> 

• • 


US.5R ID « MASA/DFRC 808 SIHS EXT 308 

i : 


UNITS OPTION « INCH 


3 ADDITIONAL LOADS TO 8c DEFINED 



S.URFACi/AVT’! NUMBER - I 


SOXf «Ct/AXiS w / M £ 


W?NG 


iG AXIS 


6D BuUY NaPE - WING2 


?NT5GO\T’ ,r H TYPE CODE « 3 

8DPY TYPE CODE » 3 

M U MB e f? OF ROMS « 9 


SStF - 1946.300 BftE F « 

symmetry code - off 

FHSTa - -1. 94 C£G 


320.080 CPEF ■ 184,050 


n IT-5?\nri AXIS OfcFIMITiON 


GMlGiN AT 
SWEEP ANGLE 


XN • 
YN • 


1161.670 
239.920 
63.520 PEG 


ROW 0\T\ 


NUMBER 

1 

7 

3 

A 

5 

6 
7 
% 

9 


YM NUN SEN OF PANELS 

166.323 5 
293.430 5 

245.245 5 
283.220 5 
312*775 5 
347.552 5 

387.246 5 
423,704 5 
456.300 5 


PANEL TATA 


nopx 

ARsA-iN2 

BARM— IN 

T*PH-IN 

i 

l 


0.000 

0.000 

i 

2 

U . 033 ‘ 

3. 

u • uoo 

\ 

3 

0 . 000 

0.000 

0.000 

i 

4 

614.071 

9.239 

-76. 26l 

i 

5 

4043.684 

53.207 

-169.024 

2 

1 

3.000 

0.000 

O.GuO 

2 

7 

).T)H3 

O.OoO 

6.0.0 0 

2 

3 

240.559 

9.391 

-23.688 

2 

4 

2499.882 

37. x66 

-SU.712 

2 

5 

3078.947 

98,103 

-84.051 

3 

r 

O.OJO 

U.UOo 

u . CoO 

3' 

7 

348.747 

12.541 

13.358 

3 

3 

2189.756 

39.651 

-11.371 

3 

4 

26x8.773 

97.892 

-42.815 

3 

5 

2618.773 

164.907 

-76.199 


CUT PANEL 
CUT PANEL 


cut panel 

CUT PANEL 


CUT PANEL 
CUT PANEL 
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nm-iK 


CUT PANEL 
CUV PANEL 


PANEL 

DATA 


r\ ng v 

AisEA-PI? 

« 

l 

792,891 

4 

2 

2229,513 

4 

8 

2309,686 

4 

4 

2389,686 

4 

8 

2339,636 

e 

V 

1863,969 

*5 

2 

1865,969 

>s 

8 

1665.969 

5 

4 

1863.969 

«s 

5 

.1.063 , 969 

6 

L 

2226.145 

6 

-> 

2226.145 

6 

8 

2226.145 

4 

4 

2226.145 

4 

8 

2226.145 

7 

1 

1914.691 

7 

2 

19,14.691 

7 

8 

1994,691 

7 

4 

1904,691 

7 

5 

1904,691 

8 

i 

1216,113 

8 

8 

1216.113 

8 

3 

1216.113 

8 

4 

1216.113 

8 

5 

1216,113 


r 

397.976 

9 

■» 

397.976 

9 

8 

397.976 

9 

4 

397.976 

Q 

5 

397.976 

n TA L 

AREA 

66499.123 




19,596 

46.131 

50.026 

21.195 

iv 7. 243 

-fc.399 

168.404 

-36,666 

229.565 

-69.333 

Co. 501 

48. J67 

U2.612 

20.315 

17*. 323 

-7.438 

234, v35 

—25.190 

2S9.746 

-62.942 

154.478 

43,295 

204. 366 

18.442 

254,258 

-6.411 

304.148 

-31.263 

354.036 

-56.116 

254.436 

37.847 

297.681 

16.304 

34V.927 

-5.238 

38*t*x73 

— 26. i 61 

427.416 

-48,324 

343.147 

34.387 

374. C94 

16,970 

405.042 

3.554 

435.990 

-11.663 

466.538 

—27.279 

418,302 

33.v30 

431.496 

26.458 

444.689 

19.886 

457.883 

13.313 

471.4.76 

6.741 
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surface' »/*•? rtuiiRsa « 2 


SURFACE/aXIS NAnfc - HDR 1 1 ImaI. 


GD OUUY NAME - HORZTA1L 


. - SG 


I‘HTCf,’\m! TYPE CODE » 3 

o mr T'yoc - ■» r*, p „ 3 

MUM'T 1= 71 WS » 6 


6nEF » 238.77j 6REF « 259.030 CREF • 149.380 

SYMMETRY CDUE - CFF 
iHcYA * l.Q*» CEG 


INT=r,9»r 7 r« *xiS OEPPIlTiCIt 


QPiGlN n XM « 1582.000 

YN - 10.75*. 

SWEEP ANGLE « 0.000 OEG 


ROW D'\ T A 



NU"»3ER 

YN 

NU.19ER OF FAME LS 

X 

2 1 • 5 >/ 6 

5 

2 

08.120 

5 

3 

116.962 

5 

4 

164,204 

5 


217.859 

5 

6 

249.416 

5 


PANE! 

data 





m*x 

AREA-1M2 

BARM-IN 

TARM-IN 


i 

1 

1263.184 

16.236 

54.72w 

CUT PANEL 

i 

2 

1263.184 

16.236 

16, 141 

CUT PANEL 

i 

3 

1263.134 

16.236 

-22.438 

cut panel 

i 

4 

1263.184 

16. 236 

-63.017 

CUT PANEL 

i 

5 

1263.184 

16.236 

-94.595 

CUT PANEL 

2 

1 

1765.972 

57.370 

23.7W5 


2 

? 

1765.972 

£7.370 

-11.330 


2 

3 

1765.972 

57.370 

-46.365 


2 

4 

1765,972 

57.370 

-81.400 


2 

5 

1765.972 

57.370 

-116.435 


3 

r 

14v*6.')99 

106.112 

-16.683 


3 

■> 

1406.099 

106.112 

-46.666 


3 

3 

1406.079 

106.112 

-76.649 


3 

4 

1406.099 

106.112 

-106.832 



3 

1406.099 

106. 112 

-126.815 


4 

1 

1199.702 

153.454 

-£6.304 


4 

2 

J.199 . 7 J2 

15a. 454 

-fci.3ol 


4 

3 

1199.702 

153.454 

-1C6.457 


4 

4 

1197,702 

153.454 

-121.533 


4 

3 

1199.702 

153.454 

-156.610 
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0 \ M" L DATA 


PI 9£ 


Aftc A-TM! 2 

« 

x 

798.922 

* 

? 

79a *922 

5 

3 

798.922 

5 

4 

798.922 

5 

5 

798.922 

<s 

t 

725,942 

6 

? 

725.942 

6 

3 

725.942 

6 

4 

725.942 

* 

5 

725,942 

m?AL 

A3 C A 

35799,106 


8*kf t-ih 

T A fch-lH 

197.109 

"92.656 

197,109 

“113.208 

1 9 7 » X J 9 

-133.769 

197.109 

-154*311 

197,109 

"a 7 4, 863 

236* 666 

“127.261 

238.666 

"143.506 

238.666 

"159. 75u 

238,666 

-175.994 

238, 666 

"a 9 2*239 
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«U;i85R * 3 

SUR -AvE/aXaS f4 a M £ .• 

VErti 

TAU - 3G 

GO BuOY KaNE 

TWP-G^Trn TYPE CODE * 3 

SkcF ® 247*4 'iO 

BREF 

a 

206.760 

CREF « 168 

AHOY t^os *3106 ■ 3 

SYMrttVSY CODE • CN 





HUM3 P? T* •’TWS ■ 6 

THETA • 9U«!) DEG 





I v T'=G'’V»TrM AXIS DEPtMlTiJN 

oragtk at 

XN 

« 

1582.000 




YM 

» 

136.560 



SWEEP ANGLE 

m 

w .JuO 

DEG 


73 W DATA 



M ! n8=i 

YT 

NUM3 £R OF PANELS 

1 

137. 790 

5 

? 

162.245 

5 

3 

184.576 

5 

4 

210.878 

5 

e 

242,432 

5 

6 

269.123 

5 


9 A HP 1 

DATA 





tsn=y 

AREA- IN 2 

EARM-Ih 

TARK-XN 


1 

1 

553.150 

'6.653 

90.303 

CUT PANEL 

1 

2 

553.15.1 

6.653 

49.133 

cut panel 

1 

3 

553*150 

6,653 

7.964 

CUT PANEL 

l 

4 

553.150 

6, 653 

-33.206 

CUT PANEL 

1 

!5 

553.150 

0.653 

-74,375 

cut panel 

2 

l 

940.239 

25,685 

68.03.4 


? 

? 

940.239 

25,685 

30.376 


2 

3 

941.239 

25. 685 

-7.283 


2 

4 

940.239 

25.685 

-44.942 


2 

5 

943*239 

25.665 

-82,600 


3 

T 

653.390 

48.016 

41.906 


3 

•> 

653,390 

43.YU6 

8,366 


3 

3 

653.390 

43.016 

-25.173 


3 

4 

653.39 ) 

48 . 016 

-i 6. 712 


2 

5 

653.390 

48.016 

-92,252 


4 

1 

971.470 

74.318 

1.. 130 


4 

? 

971.470 

74.318 

-IV. 557 


4 

3 

971.470 

74.318 

-46.245 


4 

4 

971.470 

74. 3x6 

-74,932 


4 

5 

971.470 

74.318 

-j.C3.619 



- 9ERTTXP 
950 
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0 = X 

AUS4-IM2 

bARM-IN 

TARM-IN 

5 

1 

660.096 

106.672 

-25.79^ 

>s 

9 

66 196 

105.872 

"48.657 

R 

3 

6 60 « v* 9 6 

105.872 

-71.523 

5 

4 

6 6 O « i> 9 6 

1*5,672 

-94,390 

5 

«i 

660.096 

105.872 

-X17.257 

6 

1 

433,031 

132. 563 

— 57 « *20 

6 

9 

433.031 

132.563 

-74.963 

6 

3 

433.031 

x32. 563 

-92*906 

6 

4 

433.031 

132.563 

-HO. 849 

6 

*> 

433.031 

132.563 

-128,792 

rmi 

\R5\ 

21057.132 
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S.t'RM?*EMXr; NUMBER =■ 4 

iU^Fhc! /axis Name * 

VlnT 

Uii - Runt 

GO BuD Y 

make « vesmm 

r M G<? TYPE CCDc • 3 

SREF ■ 2 47.400 

BkEF 

a 

266.76C 

CftEF ■ 

188.950 ■ • 

39PY t/i: ^tqc « 3 

SYMMETRY O-CiE - CN 






TI.M1FH T5 <>1WS » 2 

THETA « 90. O') CEG 






T*JTb»?Q 4TTIM AXIS DeFINmOr. 

ORIGIN *T 

XN 

a 

1535. 56C 





YN 

a 

75.C0C 




SWEEP ANGLE 

« 

0.000 

OEG 



AMW 0AT\ 



KM M 3 c 7 

YN 

HUMBER OF PANELS 

1 

96.566 

5 

2 

117.404 

5 


9 ANE L 





r«n 

EX 

AREA-IN2 

8 ARM-IN 

Tm-IN 

1 

1 

1217.063 

21.566 

98.032 

1 

2 

1217.063 

21.566 

48,322 

1 

3 

1217,063 

21.566 

-1.387 

1 

4 

1217.063 

21.566 

-51.097 

l 

5 

12i7, 053 

21.566 

— 100.806 

?. 

1 

739.196 

42.404 

73.94m 

2 

2 

789.196 

42.404 

28.029 

? 

3 

781.196 

42. 494 

-37.882 

2 

4 

789.196 

42.404 

-63.794 

2 

<5 

789,196 

42.404 

-109.705 


nTU 9986.297 
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SUPPA'-e/WIS . 3 rUfU-aCI/AXJS « t-ht PuS 5G VE*7 


XNTEG'Mn r H TY°E C « i 


81 OY r ^r- (nog « 1 

H'lHlP" T5 91WS * 1 


i!<CF » 1946,000 KScF « SLle^tC 

SYMMETRY C5DE «» ON 


INTEG'n*TTJ A. X SS DEFMmON POftWAkO UNIT *1 

fcPT UMir AT 
HilHEhTS OUrtFED A8COT 


X£ « W.ggC 
XP- « 528. 5oC 
XR > 528.530 


*nw 1\TA Y * O.gOO NUMBER OF PANELS • 20 


PANE*. TATA 


?*! r>e % 

AREA-ZN2 

8 ASM— IN 

TAPM-IN 


i 

273a. CO 6 

462, 

0*01.0 

i 

2 

5677,311 

373. 630 

0.000 

i 

1 

74)4,332 

265,0o1 

0,000 

i 

4 

9074,412 

196. 4tJ« 

G.uoO 

i 

5 

10341,924 

107.600 

ft, coo 

i 

6 

3063,122 

31.750 

«.OoO 

i 

y 

O.O-JO 

v. v 00 

0.000 

i 

3 

l.Ofta 

Si. 000 

O.SsoQ 

i.. 

9 

0,003 

0.000 

0.000 

i 

1.1 

JeOOO 

o.OOO 

0.000 

i 

IT 

0,003 

0,000 

<?.Q 00 

i 

1.2 


0. o;J0 

o«coO 

i 

11 

0.000" 

0,000 

c.ooo 

i 

1.4 

O.Ool 

0.000 

G.GGO 

i 

1.5 

O.CFIO 

•Jt.000 

0 . 000 

t 

16 

0.000 

O.gQC 

0.000 

i 

1? 

0.000 

0.00$ 

\o.U00 

X 

.13 

0*000 

0,000 

c.ooo 

i 

13 

>.0j3 

0. GOG 

0.000 

i 

21 

0. i)00 

0, 000 

C e C 0 

rim 

«* 

43317.077 




GD 30 LY NAME - FUSELAGE 
CREF « 184. G50 

PCSmVE - NOSE UP 
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vnmn humber « 6 


SURfhCfc/AXii i'UME « F WD PL6 S6 LAY 


G Li BODY NAME » FUSELAGE 


»MT*6?\TT1 k l TYPE 

CODS • 2 

SKEF ■ 1946.O0J 

BktF • 

820.060 

CREF * 184*050 

31DY TYn ^ T 0 2 • - 

A 

SYMMETRY CODE » UN 




S’.i m i c nws *• 

1 





f «T'G^rrn axis 

DEFINITION 

FURVaRO LIMIT AT 
APi UHaT AT 
MOMShTS SUMMED *BCUT 

X R - 
XR • 
XR • 

u.000 

528.500 

328.500 

POSITIVE - MDSE 

row o\ f \ Y 

» 0.009 

HUMBER OF PANELS 

« 20 




5 \ MF L OAn 


06 X 

AHE4.-IH2 

barm-in 

T aRM-IN 

1 

i 

2731.006 

462.200 

g.coo 

1 

•» 

5677. 311 

373.600 

L.CGO 

l 

3 

74 04.332 

265.YS00 

o.ooo 

1 

4 

9074.412 

196.400 

o . fioo 

1 

5 

10341.924 

107.600 

CS.OuO 

1 

6 

8798.122 

3a* 750 

0.000 

1 

7 

0.000 

9.030 

o.dod 


3 

0.030 

•j « 0 

<0.000 

1 

9 

0.000 

0.000 

u.COO 

1 

n 

o.o-oo 

- o. cuo 

0.000 

1 

u 

O.tfo 1 

u.CluO 

0 . UoO 

1 

12 

0.000 

0.000 

Cl.OoO 

1 

13 

3.000 

0.000 

0.000 

X 

14 

O.OjO 

0.000 

c.coo 

X 

1.5 

0.000 

0. 000 

0.000 

1 

15 

0.000 

0. oOO 

C.UoO 

l 

17 

O.Owo 

0. 000 

o.coo 

1 

1.3 

0.090 

0.000 

o . cco 

1 

19 

0.000 

0 • O-jO 

,0.000 

1 

29 

0.000 

0.0O0 

O.CwO 

nr 

VL \M\ 

43317.077 
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•5'Mp'r A l '~/\ XT* MUGGER • 7 

tUKF/.CE/AXxS imAME * 

*PT FUi 

SG VERT 

GD BoD Y NrtINfc • FUSELAGE 

T'JT e G»\m^ TYPE: 

C OPE - 1 

skef * „946.uco 

BkEF ® 

320.960 

CK.EF - 184.050 

1 3 oy rr»E cue « 


SYMhfcTsY CLuE « CM 




1-S f»TW3 a 

l 





T')TZG°\fTM AXIS 

OEFTrtTTJOM 

FGRWAAO LiHIT Al 

X<? * 

1337. SOC 




API LIN IT *T 

XR * 

1 600 *090 

- 



MOMENTS jUrtVEu aBCUT 

XR • 

1337.500 

POSITIVE - TAIL UP 

row oata y 

a 0,000 

NUNSeR OF PANELS 

* 20 


- 


om 


r*D«?X 

AK6V-IM2 

BARM-IN 

T*.RH-IN 

1 

V 

O.OjO 

0.000 

0.000 

1 

2 

0 « 00 0 

9.900 

0.990 

1 

3 

0.000 

0.000 

9*000 

1 

4 

0.003 

9.030 

C.GOO 

X 

«$ 


0.000 

0.000 

X 

5 

O.o 00 

9*030 

9. 090 

1 

7 

0 . 000 

0. 000 

0.000 

1 

. 8 

3 . OlO 

3. 0<J6 

O.QOO 

1 

9 

3.030 

0.000 

y .(lOO 

j 

XT 

U.oOi) 

0.030 

6.990 

1 

li- 

3 . 903 

0.090 

0.090 

l 

ra 

9. GOO 

9.990 

0.000 

1 

13 

0.000 

0.090 

9.990 

1 

14 

0.000 

0.000 

C.OwO 

1 

t e 

1232.397 

6.759 

C «j9i00 

1 

15 

7982.320 

57.800 

0.090 

1 

r» 

7825.329 

146.400 

G.QwO 

1 

18 

7646.130 

235.009 

O.QOO 

1 


5 779.2 ?i 

323.630 

0.000 


20 

1873.980 

412. 200 

9.000 


HTU \WA 32344.415 
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Rllfl'i 422/ \XT' MUMPER - 8 


SURFACE/AX1S fi/HE - AFT PUS SG LAT 


GD BuDY NAME • FUSELAGE 


»'vjTc:^o\rTTM fypc 0 OuS - 2 SREi- 


1946. OCJ 


6REF ■ 820.«,8C CREF « 16 4 .4 5.0 


gjDY ryoc cnjg „ i SYMMETRY CGDE « ON 

4UM3 C ? T* ?1Wi « 1 


tMTSGsvrrvi AXIS OEFISiITaUK 


pURfcARO 

LIMIT 

AT 

XR ■ 

1337.5GO 

AFT 

l i.i i r 

AT 

XR » 

1800.000 

MOMENTS SUMMED a8U:T 

XR « 

1337 . 5?iC 


PUSITaVE - TAIL RIGHT 


nw OAT\ 


Y - 0,‘JyO DUMBER UF FANELS * 23 


»AN C I. r>m 


X'iDEX 

AREA-1'32 

B ARri— IN 

tafh-ih 

1 

V 

0 • .093 

0«uOO 

0.000 

1 

1 

0.000 

O.OUO 

a . o jo 

1 

3 

0.000 

o.coo 

o.coo 

l 

4 

o . O'.ii 

i W.OOO 

U.Ucri 

l 

5 

0.000 

0.000 

0 *OoO 

1 

6 

0.900 

0.000 

L.OvO 

1 

7 

0.000 

0.000 

O.QoO 

1 

3 

0.000 

O.UwO 

0.000 

1 

9 

o.Ooo 

0. OuO 

O.OwO 

1 

n 

) . 000 

0.000 

0.000 

1 

n 

0.0)0 

0. 000 

C.OOO 

1 

V7 

0*000 

0 *00!) 

0.000 

i 

13 

0.000 

0. 000 

u.COO 

i 

14 

o.ouo 

0. QyO 

0 . coo 

i 

15 

1232.397 

6.750 

o.ooo 

i 

14 

7982.328 

57.600 

C. *00 

l 

\7 

7825.329 

146.400 

i * 

i 

13 

7646.130 

235.000 

o.coo 

i 

19 

5779.201 

323.630 

o.coo 

i 

73 

1673,980 

412. 200 

0 « OwO 

total 

, AREA 

32344.415 
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^OTTITUL '.GAD'S ),»TI IN 


ittMBER * n WJkCVkUS NAME « VT ROOT TOTAL 

T'JTE GR4f T IS TYPE CODE « 4 ARE? • 247. 4v3 BAEr - Zi J6.760 CHEF * 

S-YMIE-IY 20TE « ON hUhBEft uF IcRMi « 6 

en^a'iENT o c ftmitiom for centerline i.un 


T El M T k » 01 CSS COMPJNsNT OCSCRiFUCW V FAoTiJK B FACTOR T FACTOR 


X 

3 

3 

1 

VtAf 

i A XL 

- 

j;g 

CL 

V 

l.GOO 

61.560 

-46.440 

2 

3 

3 

2 

VcRT 

TAU. 

- 

SG 

CL 

8 

O.OoO 

l.COC 

O.COO 

3 

3 

3 

3 

VERT 

TAIL 


SG 

CL 

T 

5. tea 

0.C3C 

ueoo 

4 

4 

3 

1 

VERT 

TAIL 

- 

ROOT 

a 

V 

uooo 

0.000 

O.COO 

<5 

4 

3 

2 

VERT 

TAIL 

- 

ROOT 

CL 

8 

U « coo 

l.COfl 

a . ooo 

6 

4 

3 

3 

VE.Ti 

TAIL 

- 

KLGf 

CL 

T 

0 e 000 

o.coo 

l.COO 


188.950 
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*0DTI7rmi LfUDs OPTIilK 

«URFACE/'AXTS HUH 9ER • 32 SURFACE/AXlS NAME • AFT FIS SG V-TCT 

XWT?. GR4TT3N TYPE COOS ■ 4 SKcF ■ 1946,0^0 . BREF » 820,080 CREF - 184,050 

SYMMETRY C10E • ON NUMBER OF TERMS • 6 

?OM»ONSMT DEFINITl ON FOR CENTERLINE LOAD 


TERM INDICES COMPONENT OEoCR*PTlON V FACTOR B FACTOR T FACTOR 


5 

7 

3 

1 

AFT rUS SG 

VERT 

CL 

V 

1.000 

0.000 

O.fiwO 

2 

7 

3 

2 

AFT FUS SG 

VERT 

CL 

B 

0,000 

I. coo 

0,000 

3 

? 

1 

1 

HQKlZ tail 

- SG 

LH 

V 

1.000 

244.500 

0,000 

4 

2 

2 

k 

HOiUZ TAIL 

- SG 

RH 

V 

l « 00 o 

244.500 

o.coo 

.5 

■» 

1 

3 

HQRiZ TAIL 

- SG 

LH 

T 

0,000 

-l.COC 

0,000 

6 

2 

2 

3 

HORlZ TAIL 

- SG 

RH 

T 

O.QOu 

-a.OOC 

o.ouo 
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LOADS OPTION 

SUPFACE/Am NUMBER ■ 33 SURFACE/AXiS NAME • AFT F US SG L-ICT 

TNTEG'UmM TYPE CODE » 4 SREF • 1946.000 BREF * 820.080 CREF « 184.050 

SYMMETRY CUTE « ON NUMBER OF TERMS • 10 

SOM j nNENT ocfintuon FOR CENTERLINE LOAD 


TERN 

T ' 

(DICES 

COMPONENT DESCRIPTION 

V FACTOR 

B FACTOR 

T FACTOR 

1 

8 

3 

1 

APT FUS SG LAT 

CL 

V 

1.000 

O.GOti 

O.OUO 

? 

3 

3 

2 

AFT FLS SG LAT 

CL 

8 

O.OuO 

1.000 


3 

8 

3 

3 

AFT FUS SG LAT 

CL 

T 

0,000 

o.coo 

1.000 

4 

31 

3 

1 

VT ROOT TOTAL 

CL 

V 

1.000 

198.060 

41.000 

5 

31 

3 

2 

Vi ROOT YQT*L 

CL 

8 

y.000 

O.600 

1.000 

6 

31 

3 

3 

VT ROOT TOTAL 

CL 

T 

0.000 

-l.COQ 

0.000 

7 

2 

1 

1 

HURT Z TAIL " SG 

IH 

V 

e.coo 

e.cco 

10.750 

8 

2 

2 

* 

HQSIZ TAIL - SG 

RH 

V 

0,000 

0.000 

-10,750 

9 

? 

1 

2 

horiz Tail - tg 

LH 

8 

0.000 

0.000 

1.000 

10 

2 

2 

2 

HOiUZ TAIL - SG 

RH 

8 

0.000 

0.0^0 

“1 .000 
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Oil 7 CMk (t 07/23/81 


MPA C'COPE 3.4.2 
V4.18,15,01Fil4I FkDH 
14 .'>8,15,17 i» ^y>J364 WDkDS - FILE INPUT t DC UG 
1*4. 18. 15.5 V c 3j./T 777>FTN>1462. 
l’4»18*r!,'7»IAT’TACH(LGiJ/$FSLl'P3iiiD»SIM$#M)l*l) 

1*4 .18.tt8.PP CYCLE MC. ■ uU 
V4 .I'M;*. PAUSE. PLEASE NGUKT FRCO/7 
1*4 .19, 25, GO.’ 

14. 4o,i’5.IMTJNT(V$N-FRC*'7*/#SN-FLRFi> 

1*4,9 9,129.60.1 

l '4 •V1.'4^.!M 1UNTEO VSM-FRCU77, SM-FLkfl 
i*4.11.l45.ATTALH(GUTA?E,SBl G0-2CS.,20«SXi1S>l1R-i>$H 
l'4.n.l4%l»FlRFl) 

V4. U.45. P« CYCLE NO, • QJ2 
l-4.11,l4*i'.C'PY(G0TrtPE,TA?E30) 
r4.U.A8.NA’ (OFF) 

1/4 ,11,148.1 GO ( P L« luftOG ) 

15.5 7.43.1 STOP 


1*5.5 7.43,1 
r5.3 7,:49.;!V» 
i*5.5 7,;49.n'> 
1*5 .57.40.CC-4 
15. 57.43. C?3 
15. 5 7.40 .it *3 
1-3 .5 7. 40, C 5 
1*5. 5 7, 40. IS 3 

V5, 57,144, pp 
1*5 ,5 7,140, E J 


2.817 CP SECONDS EXECUT.lLrt TINE 

FILE QUiFUT » DC 4C 


00002816 WURjS - 
0u90l3<*4 WORDS - 
2.374 SEC. 
3.606 SEC. 
1,162 SEC. 
270.049 KWS. 

9.419 SEC. 
END OF JOB, ** 


FILE PUNCH , DC iju 
2,874 AD J. 
3.606 ADJ. 
1.162 ADO. 
16.482 ADJ,’ 
24.125 

DATE 08/10/81 


*•3** **•»***•* 
« *«•»,******* 


81FS14I //// END OF LIST //// 

3IFS14X //// EHC OF LIST //// 


8.2 Integration and Wind Tunnel Options 

This example creates the revised geometry file with GOP * 2 and the wind tun- 
nel coefficient file with WOP = 2 using card input. For brevity, only 1 pressure 
case for an asymmetric flight condition (ct=0, e=+8) is input on cards with POP * 1. 
The integration and wind tunnel loads options are then executed for all load 
stations. In addition, comparisons for 6 selected load stations are output 
using the summary print option. 
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Card input listing for example 8.2 


C A .< D 
NO 


1 2 3 4 5 6 7 

1234567890123456739 01234 5 6 7690 12 34 5673 90 12345 6789012345678 9y I 234 567 8 9f> 123 45675 9i 


1 GOP 2 

2 T1TTTTTT 

3 11 TTTTTT TTTTTT 


POP 1 


ROP 0 


TTT 


SOP 0 


10 p 1 


4 

vl 

01 

WING - 

5 

02 

03 

H 

T - 

6 

06 

08 

F- 

F - 

7 

02 

0 5 

V 

T - 

8 

51 

06 

V 

T “ 

9 

33 

14 

A 

F “ 

10 





11 

0 6 

NSAD 


12 

i 

WING 

— 

sg ax: 

13 

1 



166, 

14 


1 

1 

0, 

15 


1 

2 

0 

16 


1 

3 

0, 

17 


1 

4 


L 8 


1 

5 


19 

2 



208 

2.) 


2 

1 

0 

21 


2 

2 

0 

22 


2 

3 

240 

23 


2 

4 

2499 

24 


2 

5 

3078 

25 

3 



245 

26 


3 

1 

0 

27 


3 

2 

348 

28 


3 

3 

2189 

29 


3 

4 

2613 

3o 


3 

5 

2618 

31 

4 



280 , 

32 


4 

1 

792 


63 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 


SG AXIS 
SG AXIS 
3G AXIS < L AT ) 

SG AXIS 
POOP TOT t L 
TUTaL (LAT) 

SUMP, ARY PRINT 
03 

IS W1NG2 ■ 

,023 5 

,‘JOO 0.000 

,000 0,000 

,vOO 0.090 


,00 0 


4 2 

4 3 

4 4 

4 5 

5 l 

5 2 

5 3 

5 4 

5 5 

6 1 

6 2 

6 3 

6 4 

6 5 

7 1 

7 2 

7 3 

7 4 

7 5 

8 1 

8 2 

8 3 

8 4 

8 5 

9 1 

9 2 

9 3 

9 4 

9 5 

HORIZ TAIL - SG 

21.506 


2229.513 

2389.686 
23s9 .686 

2359.686 
312.775 

1865.969 

1865.969 

1865.969 

1365.969 

1865.969 
347,552 

2226.145 
222b. 145 
2226.145 
2226.145 
2226.145 
387.246 

1904.691 

1904.691 
1904.691 
1904.691 
1904. 691 

423.704 

1216.113 

1210.113 

1216.113 
L216.ll 3 
1216.113 

456.000 

397.976 
397.9/6 

397.976 
397.976 
397.976 


1263.184 

1263.184 

1263.184 


0.000 

0.000 

9.391 

37.166 

98.103 

R 

0.000 
12.541 
3 9.65,1 
97,892 
164,907 
* 

19.598 

50.026 

107.243 

166.404 

229.565 

5 

66 .901 
122.612 
176.323 
234,035 
289.746 
5 

154.478 

204.368 

254.258 

304.146 
354,038 

5 

254.436 
297.681 
340.927 
384.173 ' 
427.418 
5 

343.147 
374,094 
405.042 
435.990 
46c. 938 

5 

418,302 
431.496 
444.689 
457.883 
471 .076 
HQkZ TAIL 
5 

16.236 

16.236 
lc.236 


TERMINATOR 

NALC 

U 9 1946.000 

0.000 

0.000 

o.ooo 


0.000 

0.000 

-23.688 

-50.712 

-84.051 

0,000 

13.358 

-11.371 

-42.315 

-76,199 

46.131 

21.195 

-8.399 

-38.666 

-69,333 

48.067 

20.315 

-7,438 

-35,190 

-62.942 

43.295 

16.442 

“6.411 

-31.263 

-56.116 

37.847 

16.304 

-5.238 

-26.781 

-48.324 

34.367 

18.970 

3,554 

-11.863 

-27.279 

33.030 

26.458 

19.886 

13.313 

6.741 

0 6 238.770 

54.720 

16,141 

-22.433 


ROP 2 

INTEGRATE MSYPMFTPIC 
WIND TUNNEL ASYMMETRIC 


82 C .080 184.050 


259.030 149.380 


73 


\ CZ > 


Cak 0 12 345678 

NJ 123456789012345o7 390123456 78 9U1 2 34567690123 45 67? 9 71 23456780012345 67 69vl23456789C 
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1 

4 

1263.184 

16,236 

-61.017 

73 


1 

5 

1 2 o 3 . i b 4 

It. 2 36 

“99,695 

/4 

2 



68.120 

5 


75 


2 

1 

1765., 97 2 

57.370 

23,705 

76 


2 

2 

1765.972 

57.370 

-11,330 

77 


2 

3 

1765.972 

57.370 

-46.365 

7 8 


2 

4 

.1,765 .972 

57.37o 

-81.400 

79 


2 

5 

1765.972 

57.37L 

-116.435 

8 0 

3 



116.362 

5 


01 


3 

1 

1406.099 

106.112 

-16,883 

82 


3 

2 

14u6 .099 

106.112 

-46.366 

83 


3 

3 

1406.099 

106.112 

-76.849 

64 


3 

4 

14vi6.U99 

106.112 

-106.832 

85 


3 

5 

1406,099 

106.112 

-136.615 

66 

4 



164,204 

K 

•* 


67 


4 

1 

1199. 7o2 

153 .454 

-56.304 

88 


4 

2 

1199. 7U2 

153.454 

-81,381 

89 


4 

3 

1j 99. 7».,2 

153,454 

-li<6.457 

90 


4 

4 

1199.702 

153.154 

-131.533 

91 


4 

5 

1199.702 

153.454 

-156.610 

92 

5 



207.359 

5 


93 


5 

1 

798.922 

197.109 

-92.656 

94 


5 

2 

793.922 

197,109 

-1X3 .208 

95 


5 

3 

796.922 

197.169 

-133.760 

96 


5 

4 

798.922 

197.109 

-154,311 

97 


5 

5 

796.922 

197.109 

-174.863 

93 

6 



249,416 

5 


99 


6 

1 

725,942 

238.666 

-127.261 

100 


6 

2 

725.942 

238,666 

-143.506 

101 


fc 

3 

725.942 

238,666 

-159,750 

102 


6 

4 

725.942 

236.666 

-175,994 

103 


6 

5 

725.942 

238.666 

-192.239 

104 

3 

VERT 

TAIL - SG 

VcRTTIP 

3 16 

103 

1 



137.790 

5 


106 


1 

1 

553.150 

6,653 

90,303 

107 


1 

2 

553.150 

6.633 

49.133 

108 


1 

3 

553.150 

6.653 

7.964 

109 


1 

4 

553 . 150 

6.653 

-33,206 

110 


1 

5 

553.150 

6.633 

-74 .375 

111 

2 



162.245 

5 


112 


2 

1 

94u« 289 

25.635 

68.034 

113 


2 

2 

940.289 

25.685 

30.376 

114 


2 

3 

940.289 

25.685 

-7.283 

115 


2 

4 

940.289 

25.685 

-44.942 

lift 


2 

5 

940.289 

25.685 

-32.600 

117 

3 



184.376 

P 


118 


3 

1 

053.390 

48.016 

41.906 

119 


3 

2 

653.390 

46,016 

8.366 

120 


3 

3 

653.390 

46.016 

-25.173 

121 


3 

4 

653.390 

48.016 

-58.712 

122 


3 

5 

653.390 

48.016 

-92.252 

423 

4 



210.378 

£ 


124 


4 

1 

971.470 

74,318 

11.130 

125 


4 

2 

971.470 

74,316 

-17.557 

126 


4 

3 

971.470 

74.318 

-46.245 

127 


4 

4 

971.470 

74.318 

-74.932 

128 


4 

5 

971.470 

74.316 

-103.619 

x29 

5 



242,432 

5 


130 


5 

1 

660.096 

105.872 

-25.790 

131 


5 

2 

660.096 

105.872 

-48.667 

132 


5 

3 

660. 996 

105.672 

-71.523 

133 


5 

4 

66U.U96 

105.872 

-94.390 

134 


5 

5 

660.096 

105. e72 

-117.257 

135 

6 



269,122 

5 


136 


6 

1 

433.031 

132.563 

-57.020 

137 


6 

2 

433.031 

132.563 

-74.963 

138 


6 

3 

433.031 

132.563 

-92.906 

il9 


6 

4 

433.031 

.132,563 

-110.849 

140 


6 

5 

433.031 

132.563 

-128.792 

141 

4 

VERT 

TAIL - ROOT 

VERTTAIL 

3 12 

142 

1 



96.366 

R 

i* 



247.400 206.760 


247.400 206.760 


168.950 


188.950 


74 


C A KD 1234567P 

NO 1234.56789O.123456739v;i234*;-6?89oU34*6789;>12345678<m2345t?3901234567e9fl2345e?89C 


14 3 


1 

1 

1217.063 

21.566 

96.032 

144 


1 

2 

1217. j63 

21.566 

48,322 

145 


1 

3 

1217.063 

21.56b 

-1.387 

146 


X 

4 

1217. Jt> 3 

21 .566 

-51.097 

147 


1 

5 

1217.J6-3 

117.404 

21.566 

-100.806 

14 8 

2 



c 


149 


2 

1 

780.196 

4 2,4-14 

73.940 

150 


2 

2 

780. L96 

42.4C4 

28.029 

15a 


2 

3 

780.196 

42.404 

-17.882 

152 


2 

4 

780.196 

42,404 

-63. 794 

153 


2 

5 

78v . l96 

42,404 

-109.705 

154 

5 

8 WO 

FUS 

SG V fcST 

FUSELAGE 

11 1 

155 

1 



6.000 

2C 


.15 6 


l 

1 

2731,006 

462.20C 

0.000 

157 


1 

u 

5677.311 

3/3,600 

O.COO 

158 


1 

3 

7404.302 

2 83 .066 

C .060 

159 


1 

4 

9074.412 

196.400 

0.000 

loO 


1 

5 

10341.924 

107.800 

0.000 

161 


1 

6 

80 88, 122 

31.750 

0 .000 

162 


1 

7 

\) . vOO 

0.00 6 

0.000 

lo3 


1 

3 

0 , OC 0 

v.,000 

0.000 

lo4 


1 

9 

0.000 

0,000 

0,000 

165 


1 

10 

O.OvO 

C ,000 

C ,000 

166 


1 

11 

0.000 

0.000 

C .000 

a. 6 7 


1 

12 

■ 0.000 

c « uoo 

o.coo 

168 


1 

13 

O.OOC 

0.000 

o.oco 

159 


1 

14 

0, JoO 

o.ooc 

0.000 

170 


1 

15 

0.000 

o.ooo 

0.000 

171 


1 

16 

0.000 

o.coo 

0.000 

172 


1 

17 

G.OLu 

o .coo 

0 ,000 

173 


1 

IS 

0.000 

0.000 

0.600 

174 


1 

19 

0. JuO 

0.000 

0.000 

175 


1 

20 

0.000 

t #000 

6.000 

176 

6 

FWD 

FUS 

SG LAT 

FUSELAGE 

2 1 1 

1 7 7 

1 



0.000 

20. 


178 


1 

1 

2731.006 

462.200 

0.000 

179 


1 

2 

5677.311 

373.600 

0 .000 

180 


1 

3 

7404.302 

285.000 

o.oco 

181 


1 

4 

9074.412 

196.400 

0.000 

182 


1 

5 

10341.924 

107.800 

0.060 

183 


1 

6 

8008,122 

31.750 

0.000 

184 


1 

7 

0.000 

O.oOC 

C.000 

185 


1 

8 

0 .000 

0.000 

0.000 

186 


1 

9 

0,000 

o.ooc 

0.000 

187 


1 

13 

0 .0 u 0 

0.000 

u.aoo 

188 


1 

11 

O.OCO 

o.ooc 

o.oco 

189 


1 

12 

0.000 

O.OOO 

0,600 

190 


1 

13 

0.000 

o.oco 

0,000 

191 


1 

14 

0. -iuO 

o.ooo 

0.000 

192 


1 

15 

0.01,0 

C- . uoo 

0.600 

193 


1 

16 

0 . 000 

o.coo 

O.OOO 

194 


1 

17 

0.000 

C .000 

6.000 

195 


1 

18 

0.000 

0.000 

0.000 

196 


1 

19 

o.ooc 

o.coo 

0.000 

197 


1 

20 

0.000 

0 , ooc 

0.660 

198 

7 

AFT 

FUS 

SG VEKT 

FUSELAGE 

111 

199 

1 



0.000 

20 


200 


1 

1 

o.oco 

0.000 

0.000 

201 


1 

2 

0.000 

C .0 )0 

0.000 

202 


1 

3 

0.000 

0,000 
6 , ij -j u 

0.000 

203 


1 

4 

6 . OvO 

o.ooo 

204 


1 

5 

o.ooc 

0.000 

o.oco 

206 


1 

6 

O.oOO 

C « coo 

0 .Go-o 

206 


1 

7 

0.000 

o « ouo 

C.000 

207 


1 

8 

0.000 

0.000 

o.ooo 

208 


1 

9 

0.000 

C . 00 0 

0.060 

20 9 


1 

10 

0.000 

0.000 

o.oco 

210 


1 

11 

0 .000 

6.000 

o.coo 

211 


1 

12 

O.OoO 

0.000 

0 .000 

212 


1 

13 

0.000 

0.000 

0.000 

213 


1 

14 

') . 00 0 

O.OUC 

0,6 u 0 


1946.001 


1946.000 


1946.000 


820.080 184. C50 


82C.080 184.050 


820. G80 1*84.050 


75 


CARD 1 2 3 4 5 6 7 8 

NO 1 234667699:5 2 346o739i. 123456789.. 1 234567&9C1234!:.6789-n 23 45 6769012345 678 90123 4 56 7P«t 


214 


1 

15 

1232.397 

6,750 

O.OCO 







213 


1 

15 

79o2.3<;6 

57.300 

U .OOC 







2i6 


k 

17 

782s. 3c9 

i 4c • 4 v 

«. ..nt^ 







217 


1 

16 

7 1 4 6 . 1 6 v 

236. 0Uv 

■ O.OCO 







218 


X 

1 9 

5779.201 

5 2 3 « 6vC 

G . 0 C 0 







219 


1 

20 

1 6 7 8 * 9 6 0 

412.200 

C .000 







220 

6 

AFT 

FUS 

SG LAI 

FUSELAGE 

2 1 1 

1946.000 

8 2 C ,080 

184,050 




221 

*> 



J . Auy 

. K 








222 


1 

1 

0 ft J V *-• 

C • O Ci c 

0.000 







223 


1 

2 

0 e J* j V 

l e’w • J v 

ij « 500 







224 


1 

3 

0.000 

0.000 

0.000 







225 


1 

4 

o.oco 

0 . COu 

0.000 







226 


1 

5 

3 

(l «>'•’ A’ 

0. ,-co 







227 


1 

6 

0 . 0 * 0 

i. .000 

0.000 







228 


1 

7 

U.JoO 

0 .60C 

C .000 







229 


1 

3 

0.000 

O.OOC 

0.000 







230 


1 

9 

0 . 0 C- 0 

t • 000 

0 . 0 0 0 







231 


1 

10 

O.OuO 

o.ooc 

t- .000 







232 


1 

U 

0.90L* 

0 . oOC 

0 ,o o o 







233 


1 

12 

o.ooc 

0.000 

0.000 







234 


1 

13 

0,000 

0.000 

O.OUO 







235 


1 

14 

0.000 

0.000 

G.fiOO 







236 


1 

15 

1232.397 

6.75C 

(; .OCO 







237 


1 

26 

7982.326 

57.800 

o « u c 0 







238 


1 

17 

7825.329 

146,400 

O.OCO 







239 


1 

18 

7646.180 

235.000 

0,000 







240 


2 

19 

5779.201 

323.690 

O.OCO 







241 


1 

20 

1878.980 

412.200 

0.000 







242 

31 

VT 

ROOT 

TOTAL 


4 16 

247,40 

2C6.76 

188.95 




243 

03 

3 

1 

1.00 

61.56 

-46.44 







244 

03 

3 

2 

0.00 

1.00 

o.co 







245 

05 

3 

3 

0.00 

3.00 

1.00 







246 

04 

3 

1 

1.00 

0.00 

0 .oO 







247 

u4 

3 

2 

0.00 

1.00 

0 * 00 







248 

04 

3 

3 

0.00 

0.00 

1.00 







249 

32 

AFT 

FUS 

SG V-TOT 


4 16 

1946,00 

820,08 

184.05 




250 

07 

3 

1 

l.ou 

0.00 

0,00 







251 

07 

3 

2 

0.00 

1.00 

0.00 







252 

02 

1 

l 

1 »CH. 

244.50 

0 * 0 c 







253 

C 2 

2 

1 

1,00 

244.50 

0,00 







254 

02 

1 

3 

0.00 

-1.00 

0.00 







255 

02 

2 

3 

0.00 

-1.00 

0,00 







256 

33 

AFT 

FUS 

SG L-TOT 


4 1 10 

1946.00 

820.08 

184.05 




25 7 

0 6 

3 

1 

l.wO 

u.oo 

9. GO 







256 

08 

3 

2 

O.oO 

1.00 

0.00 







239 

08 

3 

3 

0,20 

o.oc 

1.00 







260 

31 

3 

1 

1.00 

193.06 

41.00 







261 

31 

3 

2 

0.00 

0.00 

1.00 







262 

31 

3 

3 

o.oc 

— 1 .00 

0 .00 







263 

02 

1 

1 

O.uO 

0 e 00 

13.75 







264 

02 

2 

1 

0.00 

0.00 

-10.75 







265 

02 

1 

2 

0 e 0 0 

o.oc 

1.00 







266 

02 

2 

2 

o.oc 

j .00 

-1.00 







267 

01 

ARS 

WOP-20 RIGID WIND TUNNEL DATA 

M»1.20 

WS*67 . 5 

9-29-80 



268 

X 

WING - 

SG AXIS 

1946.00 

820,08 

184,05 






269 



101 

.029213 

.008831 - 

.003133 

ALPHA « 0 


MSI. 20 

SW 

% 

67 

270 



102 

,0120-51 

.003229 

.000534 

ALPHA 


MSI. 20 

SW 

X 

67 

271 



103 

. 0 

.0 

.0 

ALPHA DOT 


MSI. 20 

SW 

X 

67 

272 



lv4— 

• 000290 - 

, GO-GO 5 7 

.0*0034 

dplta SPOILER 

MSI. 20 

SW 

% 

67 

273 



106- 

.303232 - 

.000955 — 

• 0 CO 2 2 3 

ROLL 7EL0C 

P 

MSI. 20 

SW 

X 

67 

274 



1C6 

.042987 

.012062 - 

.001234 

PITCH 7EL0C 

Q- ■ 

MSI. 20 

SW 

X 

67 

275 



107- 

.000759 - 

.000167 * 

.000149 

3 ET A AL A 

ZERO A/S 

MSI. 20 

SW 

X 

67 

276 



1C3- 

. 0 0 u 2 2 6 — 

.000058 - 

.000025 

SETA ALPHA 

A/S 

MSI. 20 

SW 

X 

67 

27 7 



109 

. UC0311 

. 0001 19 — 

.000174 

3ETA ALPHA 

ZERO SYM 

MSI. 20 

SW 

% 

67 

278 



110 

.oouooa 

.000005 - 

.000011 

BETA ALPHA 

SYM 

MS1.2C 

SW 

s 

67 

279 



111 




FILLER 


M Si. 20 

SW 

s 

67 

2 80 



112 




FILLER 


M SI . 20 

SW 

s 

67 

281 



113 




FILLER 


M SI, 20 

SW 

s 

67 

282 



114 




FILLER 


M SI. 20 

SW 

s 

67 

283 



115 




FILLER 


M S1.2C 

SW 

X 

67 

284 

2 

H0R1Z TAIL - SG 

238.77 

259.03 

149,38 







76 




CARD 


1 

2 3 

4 

* 6 

7 



A 

Nil 

1234 

567890123456789 

C 1 2345 6 7891 1,2345678 9C 1234 56 73903 234 5 679 901 234567P9C 12 3456789 0 

2 6 5 


20.1-. 136182 

— .0494‘32 

.051116 

ALPHA * 0 

M2 1 . 20 

SW 

2 

67.5 

286 


212 .042237 

.016920 

-.019427 

alpha 

MU. 20 

SW 

2 

67.5 

28? 


2l 3 . «. 6(-6 1 3 

,6871^7 

—.027633 

DELTA H 

MU. 20 

Sw 

2 

67.5 

263 


2i 4 . 23393 j 

.104769 

-.107545 

ALPHA DOT 

MU .20 

SW 

7 

67.5 

289 


205— .017 /38 

-.006993 

,004648 

BETA 

M2 1.20 

SW 

% 

67.5 

290 


2C6 .049585 

« C 2 2 7 3 5 

-.022C25 

TCLTA H PRIME 

MU .20 

SW 

z 

67.5 

291 


2 0 7 — . v >j ? Dm 

-»u».03i7 

.00o269 

DELTA SPOILER SYM 

MU . 20 

sw 

% 

67.5 

292 


2 o 8 . 0 0 0 2 7 7 

• iivOl 4 5 

-.UvjlbB 

CFLTA SPOILER A/S 

MU .20 

sw 

2 

67.5 

293 


209-. 002479 

-.002038 

.002313 

ROLL VELOCITY P 

MU . 20 

sw 

2 

67.5 

294 


210 .552160 

.254971 

-.297065 

PITCH VELOCITY 0 

MS 1.20 

SW 

2 

67.5 

293 


2 a.1 



FILLER 

M 21.20 

sw 

2 

67,5 

296 


21 2 



FILLER 

M 21.20 

sw 

2 

67,5 

297 


213 



FILLER 

M 21.20 

sw 

2 

67.5 

298 


214 



FILLER 

M 2). .20 

sw 

? 

67.5 

299 


215 



FILLER 

M 21.20 

sw 

2 

67,5 

300 

3 

VEST TAIL - SG 

247.40 

266.76 

188.95 





301 


301-. 034484 

-.010927 

.003146 

35 T A ALPHA=C 136.56 

M21.20 

sw 

7. 

67.5 

302 


302-. 001115 

-.000354 

,000102 

BETA ALPHA i 3 6 . 5 6 

M21.2C 

sw 

z 

67.5 

303 


3 0 3 — . o* 3 3 2 

— .f'OvfcOC 

, ij0^4 a4 

OC-LTA H PRIME 136.56 

M21.20 

sw 

2 

67.5 

304 


304—. 000270 

— , o 0 0 G 8 9 

.000023 

DELTA SPOILER 136.56 

M21.20 

sw 

2 

67,5 

305 


305 . 0 U 9 6 6 3 

.002654 

-.003630 

DELTA PUD UP 136.56 

M21.20 

sw 

2 

67.5 

306 


306 .0 

. C 

.0 

DELTA PUD LOW 136,56 

M21.2C 

SW 

2 

67.5 

3o7 


30 7-. 003995 

-.001461 

.0(30756 

POLL VELC1C P 136.56 

M21.20 

sw 

2 

67.5 

3w8 


3a8 .032297 

»0i0244 

-.005596 

YAW VELOC R 136,56 

M21.20 

sw 

2 

67.5 

309 


309 



FILLER 

M 21.20 

sw 

2 

67.5 

310 


310 



FILLER 

M 21. 20 

sw 

2 

67.5 

311 


311 



FILLER 

M 21.20 

sw 

2 

67,5 

312 


312 



FILLER 

M 21.20 

sw 

,2 

67.5 

313 


313 



FILLER 

M 21.20 

sw 

2 

67.5 

314 


314 



FILLER 

M 21.20 

sw 

2 

67.5 

315 


315 



FILLER 

M 21. 2C 

sw 

2 

67.5 

316 

4 

VERT TAIL ROOT 

247.40 

206.76 

188.95 





317 


40 1— » 053 4 6 7 

-.023324 

.010230 

BETA ALPMA=0 WL 75 

M2 X . 20 

sw 

2 

67,5 

318 


402-. 001730 

-.000755 

.000331 

BETA ALPHA WL 75 

H21.20 

sw 

2 

67.5 

319 


403— » 0023 5 3 

-. Owl 6 21 

.001072 

D C LTA H PRIME WL 75 

M21.20 

sw 

2 

67.5 

320 


4(.’4— . 0C0349 

-•Ooul77 

• OoGU 7 9 

DELTA S 0 OlLSft WL 75 

M21.20 

sw 

2 

67,5 

321 


' 405 .009675 

.005734 

-.006210 

DELTA RUO UP WL 75 

MU .20 

sw 

2 

67.5 

322 


406 .003873 

.000352 

-.001119 

DELTA PUD LOW WL 75 

M21.2Q 

sw 

2 

67.5 

323 


407-.003 7.) ) 

—.002645 

.002065 

POLL VELOC P WL 75 

M21.20 

sw 

2 

67.5 

324 


4C3 ,04759a 

.022154 

-.013930 

YAW VELOC R WL 75 

M21.2CS 

sw 

2 

67.5 

325 


409 



FILLER 

M 21.20 

SW 

2 

67.5 

326 


410 



FILLER 

M 21.20 

sw 

2 

67.5 

327 


411 



FILLER 

M 21.20 

sw 

2 

67.5 

338 


412 



FILLER 

M 21.26 

sw 

2 

67.5 

329 


413 



FILLER 

M 21.20 

sw 

2 

67.5 

330 


414 



FILLER 

M 21.20 

SW 

2 

67.5 

331 


415 


\ 

FILLER 

M 21.20 

sw 

2 

67.5 

332 

6 

FWD PUS SG 

1946,00 

820.08 

184.05 





333 


501 .00317 

-.000822 

.0 

ALPHA *0 (VERTICAL) 

M 21,20 

SW 

2 

67.5 

334 


502 .00188 

♦00C605 

.0 

ALPHA (VERTICAL) 

M 21.20 

sw 

2 

67.5 

33 6 


503 »Ouol4 

•00004 

.00002 

ROLL V5L.P (LATERAL) 

M 21.20 

s w 

2 

67.5 

336 


504-. 00571 

-. Ool 66 

-.00099 

BETA (LATERAL) 

M 21,20 

sw 

2 

67.5 

337 


505 



FILLER 

M 21.20 

sw 

2 

67.5 

338 


506 



FILLER 

M 21.20 

sw 

2 

67.5 

339 


507 



FILLER 

M .21,20 

sw 

2 

67.5 

340 


508 



FILLER 

M 21.20 

sw 

2 

67.5 

341 


509 



FILLER 

M 21.20 

SW 

2 

67.5 

342 


510 



FILLER 

M 21.20 

sw 

2 

67.5 

343 


511 



FILLER 

M 21.20 

sw 

2 

67.5 

344 


512 



FILLER 

M 21.20 

sw 

* 

67.5 

345 


513 



FILLER 

M 21,20 

Sw 

2 

67.5 

346 


514 



FILLER 

M 21.20 

sw 

2 

67.5 

347 


515 



FILLER 

M 21.20 

SW 

2 

67.5 

348 

6 

AFT FUS SG 

1945.00 

320.08 

184, C5 244,50 10 

1 .75 198 

.06 

41.00 

349 


601 .00530 

.002173 

.0 

ALPHA=0 (VERTICAL) 

M 21.20 

sw 

2 

67.5 

350 


602-. 00046 

-.000118 

.0 

ALPHA (VERTICAL) 

M 21.20 

sw 

2 

67.5 

351 


6v> 3—. 00211 

— ,0ou 30 

-.00037 

beta alpha-o c/o ( l at ) m 21.2c 

SW 

2 

67.5 

353 


60 4 — , 00i<0 7 

— .ooOui 

-.00001 

BETA ALPHA C/C (LAT) 

M 21,20 

sw 

2 

67.5 

353 


605 ,00022 

.00006 

.00004 

DELTA H PRIME (LAT) 

M 21,20 

sw 

2 

67.5 

354 


606 .00009 

.00001 

.0CC02 

DELTA RUDDER LOWER (DM 21.20 

sw 

2 

67.5 

355 


6C7 .C0044 

.00,311 

• 000C8 

ROLL VELOCITY P (LAT ) M 21.20 

sw 

2 

67.5 


77 


CARD 

1 


2 

3 

9 

5 

NO 

123956 769vl 

23956789^12345 

6789(1 

2395678401239567890 

356 

6c*g~ 

.00168 -.00039 

.00029 

BETA (LA 

357 

609 





FILLER 

358 

610 





FILLER 

359 

611 





FILLER 

360 

612 





FILLER 

361 

613 





FILLER 

3.o 2 

619 





FILLER 

3o3 

615 





FILLER 

36 9 

7/8/9 

END OF R 6 C 0 R 0 

1 



365 

1 03 982. 

32 06 AR 




366 

1 C 9 1295 

.1 V T AS 




367 

1 02 8. 

0 

BETA 




368 

7/8/9 

END OF RECORD 

2 



369 

1.0 CmSE 




370 

31 ARS SOSS 

-3C.2.1D 67 

» 5W$> 1 

,2H> 20 K , 

AtT*RIGIO», 

37 A 

N AS A / OF P C 

308 SINS EXT 308 



372 

3.0000 


2.0000 1 

.2000 

0.0000 

8 . COCO 

373 

VrRTTAIL 


2.0000 90 

.0000 



379 

96.5665 


5 . 000 0 




373 

• 0991 


0,0000 

.6962 

-.6962 

1937.5285 

3 76 

.2993 


0 . Dvoo 

• 9579 

-.9579 

1937.2380 

377 

,9999 


0.30 00 

.5650 

-.5850 

1536.9975 

373 

.6995 


0.0000 

.9035 

-.9035 

1686.6570 

379 

.6997 


0.0000 

,1036 

-.1038 

1636,3669 

380 

117.9099 


5 . OOx 0 




381 

.0995 


o.oooc 

.8009 

-.8009 

1961.6198 

382 

.2996 


0 «UOOG 

.6260 

-.6260 

1507.5311 

383 

.9997 


0.0000 

,5953 

-.5953 

1653.9925 

369 

,6997 


0,0 000 

.3307 

-.3307 

1599.3538 

385 

.8998 


0.0000 

,0958 

-.0958 

1695.2652 

396 

VEPTTIP 


6.0000 90 

,0000 



387 

137.7898 


5 . 004/0 




388 

» ti 9 8 8 


0 . OQwO 

.9917 

-.9917 

1995.3523 

389 

.2990 


0 .00 00 

.15 76 

-.1576 

1527.5221 

3 90 

.9992 


o.oooc 

,3073 

-.3073 

1569,6918 

39 i 

.6999 


0,00 0 0 

.3683 

-.3663 

1611.8616 

392 

.8996 


0 ,0000 

.3330 

-.3330 

1659.0319 

393 

162.2996 


5 . JOCC 




399 

.098 9 


0,0000 1 

.0583 

-1.0583 

1513.9658 

395 

.2967 


o.oooc 

.2539 

-.2539 

1551.6295 

396 

.9989 


0 . 0 0 0 c 

.3536 

-.3536 

1589.2831 

397 

.6992 


0 « jOoC* 

• 3689 

-.3689 

1626.9918 

393 

.8999 


o.oooo 

.3399 

-.3399 

1669.6005 

399 

189.5756 


5.0000 




900 

• 0968 


0 . 0 0 u 6 1 

.1589 

-1.1589 

1590,0999 

901 

.2990 


0 . o jo 0 

.3699 

-.3699 

1573.6337 

902 

.9992 


0.0000 

.3960 

-. 3960 

1607.1731 

9o3 

.6999 


O.ootc 

.3862 

-.3862 

1690.7129 

909 

.8995 


0.0000 

.3929 

-.3929 

1679.2517 

905 

210.8761 


5.0000 




906 

.0999 


0.0000 1 

.3997 

-1.3997 

1570.8699 

907 

.295 7 


c.ooeo 

.9612 

-.9612 

1599.5573 

908 

.9965 


0.0000 

.9993 

-.9993 

1628.2997 

90 9 

.6973 


O.OOOC 

.9069 

-.9069 

1656.6321 

910 

.8961 


0. OuuO 

.3081 

-.3081 

1685, bl95 

9x1 

292.9320 


5.0000 




912 

.0992 


o.oooo l 

. 5 9 5 4j 

-1.5950 

161)7.7899 

913 

.2951 


0.0000 

.5792 

-.5792 

1630.6566 

919 

.9960 


0 .0000 

• 5u05 

-.5 ."4,5 

1653.5234 

915 

.6969 


4 J « OOuO 

.2977 

-.8977 

1676.3901 

916 

.8978 


o.uuoc 

.1189 

-.1189 

1649.2568 

917 

269.1231 


5.0000 




918 

.0939 


O.OOOO 1 

.8879 

-1.8879 

1639.0201 

919 

.2999 


0 .0000 

.53x2 

-.53x2 

1666.9632 

920 

.9955 


0.0000 

.1397 

-.1397 

1674.9063 

921 

.6965 


0.0000 

• 0690 

-.0690 

1692.6499 

922 

.6975 


0.0000 

.0979 

-.0979 

1710.7925 


M ?1.2D 
M Zl.Zt 
M *1.20 
M *1.2C 
v n.zc 
M Zi.2 a 
H 3E1.2P 
M *1.20 


$w 

sw 

SW 

sw 

Sw 

sw 

SW 


* 67, 
? 67. 

* 67, 
*. 67, 
X 67. 
X 67 o 
S 67. 
% 67 e 


982.31 51 


78 


tnxvuiantfttntrttrt 




CARD 

1 

2 

3 

4 

5 6 7 8 


NJ 

12 3456789012 34 5 673901234 5 c 79 9C 123 4 56739012345678 9 01 234 5 6 7S9 31 234 5678901234 567890 


4c3 

V» } G 1 

2.009? 

— 1 . 94 -30 




424 

71.0699 

6 . UJuC 





425 

.0 46 7 

.0602 

.0052 

.1152 

675.4890 


42o 

.2975 

- « ‘J J 6 8 

— . OG 34 

-.0063 

821.0926 


427 

• 44e4 

.0010 

-. j480 

.(.* 50 .) 

9dfc.5 7 62 


428 

.6992 

. J454 

.0589 

. 03 20 

1112.1198 


429 

,9000 

.0839 

.0873 

, 0605 

1257.6634 


43v 

i.22.1564 

5 • j 0 0 0 





431 

♦ 0970 

.0265 

-.0227 

.0758 

789.7062 


432 

.2978 

.0458 

-.0232 

.1148 

906.7428 


4 36 

.4966 

-. i ) 6 \ 

- .0200 

• Ut;37 

1023.7794 


434 

.6993 

.1029 

.0704 

.1364 

1140,8161 


435 

.900 0 

.1793 

.1635 

.1752 

1257.6527 


436 

WING2 

9 . 000 C 

-1.9400 




437 

166.9276 

5 .O0o0 





438 

.0953 


-.0655 

.0193 

687.5599 


439 

.2964 

.0223 

.2420 

-.1974 

980,1737 


443 

.4976 

.246 7 

.0784 

.4110 

1072,7874 


441 

• 6 9 £ 6 

.0723 

• 1662 

-.0237 

1165,4011 


442 

. 9QuO 

.0536 

.1158 

C086 

1258.0149 


443 

238.3103 






444 

.0997 

-.0332 

.0181 

-.0946 

971.3564 


445 

.2947 

.1249 

.1226 

.1273 

1050.3069 


446 

.4997 

.1662 

• X : J 5 5 

.2269 

1129.2573 


447 

.6997 

. 0556 

.1431 

-.0319 

1208.2077 


448 

.8997 

.1229 

.1559 

.0898 

1287.1582 


449 

245.1043 

5.0000 





450 

.0964 

.0199 

.0355 

.0044 

1043.9731 


4 51 

.2965 

.1212 

.0992 

.1433 

1113.8429 


452 

.4967 

.0984 

.'1295 

.0673 

1193.7127 


45 3 

.6968 

.1032 

.1420 

.0644 

1268.5825 


454 

• 6969 

.1326 

.1398 

.1253 

1343.4523 


455 

260.0598 

5 .0000 





456 

.0981 

.0684 

.0616 

.0753 

1124.9494 


457 

.2983 

.0916 

.1102 

.0730 

1193.2784 


45 8 

.4984 

a-u7 

..2185 

.0849 

1261.6074 


459 

.6986 

.1368 

. .1519 

.1217 

1329.9365 


450 

.8967 

.1253 

.1303 

.1202 

1398.2655 


461 

312.5952 

’5.0000 





462 

.0963 

.0949 

.0885 

.1012 

1200.3195 


463 

.2985 

.0882 

.1110 

.0655 

1262.5606 


464 

• 4966 

.1211 

.1317 

.1106 

1324.8017 


466 

.6987 

.1466 

.1501 

.1436 

1387.0428 


466 

.8969 

.1149 

.1189 

.1110 

1499.2840 


467 

347.3528 

5 .0000 



468 

.0963 

.1097 

.1165 

.102 8 

1283,8371 


469 

.2966 

.1123 

.1185 

.1061 

1336,5746 


4 70 

.4 969 

.1394 

.1422 

.1365 

1392.3120 


471 

,6972 

.1366 

.1406 

.1325 

1448.0494 


472 

.8975 

.1069 

.1071 

.1067 

1503.7863 


473 

387.0238 

5 .OOoO 





474 

.0952 

.1456 

.1495 

.1418 

1372.7372 


475 

.2965 

.1333 

.1348 

.1318 

1421,0515 


476 

.4959 

.1367 

.1407 

.1328 

1469.3658 


477 

.6963 

.1193 

.1190 

.1196 

1517.6801 


478 

.8967 

.0808 


.0896 

1565.9945 


479 

423.4607 

5.0000 





480 

.lUoQ 

.2007 

• .2002 

.2012 

1453.6845 


481 

.3000 

.1333 

.1400 

.1267 

1488.2595 


982 

.5000 

.1269 

.1248 

.1329 

1522.8346 


483 

• 7 *# W! 0 

.047t 

.0450 

.0498 

1557.4096 


484 

. 90 vO 

.1478 

.1439 

.1516 

1591.9846 


465 

455.7366 

S.uJOO 





486 

.1000 

.2928 

.2911 

,2946 

1521,5604 


487 

• 3oOO 

.1150 

.1117 

.1184 

1536.3002 


488 

• G J 

— . 0 3 .1 4 

-.0385 

-.0323 

1561.0401 


469 

.7000 

.3116 

.3102 

.3130 

1565.7799 


490 

.9000 

.1237 

.1214 

.1260 

1560.5197 


491 

H0RZYA1L 

6.0000 

1.0000 




492 

21.5032 

5.0000 





493 

.v>992 

-»06w4 

.2846 

-.4054 

1523.7916 
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494 

,2993 

-.0559 

.0873 

-.1991 

1562.6997 

495 

.4944 

-.0437 

—.0546 

-.0335 

16 a. 6977 

4 96 

.6994 

— .032 1 

-,139i 

.-349 

1640,5158 

49 7 

.8995 

- . i 0 2 

-.1616 

.1413 

1679.4238 

493 

68.1097 

■ ‘J e 0 0 0 




499 

,0 97 8 

-.0786 

.3143 

—.4548 

1558.2948 

500 

.2974 

-.0517 

.1508 

-.1543 

1593.3298 

5Ci 

.4977 

-.0314 

-.0636 

.0007 

1628.3648 

5 02 

.69ejL 

—.0026 

- • j. 5 9 3 

.1 5 42 

1663.3999 

5v3 

• 8 985 

-.1281 

-.2452 

.2010 

1698.4349 

504 

lib .6446 

5 .1060 




505 

.0964 

-.i960 

.2745 

-.4706 

1598.8828 

506 

.2969 

-.0503 

.3315 

-.1322 

1523.8659 

507 

.4973 

- « o 3 2 3 

".^722 

. 61 

1653.849,) 

50 8 

,6 976 

-»<3 J96 

-.1605 

.1413 

1683.8320 

509 

.6982 

-. 0276 

-.2262 

.1710 

1713.8151 

510 

164.17 £ 3 

5,0000 




5ii 

.0947 

-.1351 

.2117 

-.4819 

1638.3045 

512 

.2954 

-.0 5t 7 

.0215 

-.1248 

1663.3808 

513 

.4 960 

— . 0 3 9 6 

-.0703 

-.L >77 

1638.4571 

514 

.6967 

-.0 180 

-.1495 

.1135 

1713.5334 

515 

.6973 

-.0261 

-.1897 

.1335 

1738.6090 

516 

207.8270 

5 « o 0 o 0 




517 

.0948 

-.1700 

.1720 

-.5120 

1674.6563 

518 

.2954 

-.0594 

.00 70 

-.1259 

1695.2079 

519 

.4961 

o3 05 

—.0749 

-.0260 

1715.7596 

62u 

.6967 

-.0357 

-.1414 

.0701 

1736,3112 

521 

.8974 

-.3171 

-.1641 

,1300 

1756.8629 

522 

249,3778 

5 .0000 




523 

.0568 

-.2265 

.1159 

".5686 

1739.2612 

524 

.2902 

-.0721 

-..0019 

-.1424 

1725,5057 

525 

.4916 

“,0278 

"« 1646 

,u05i 

1741.7501 

526 

.6930 

-.0004 

-.1235 

.1226 

1757,9945 

527 

.8944 

.0032 

-.1525 

.1569 

1774.2389 

528 

PLATE 

3 , 0 lo 0 

-87.1000 



529 

146.4763 

4.0000 




530 

,0969 

.3599 

-.4056 

.5253 

951.3000 

531 

.3384 

-.1720 

.0250 

-.3690 

1058.3000 

532 

.6195 

.1093 

-.1194 

.3331 

1183.3000 

533 

« 8 60 v’ 

.l69i 

..4135 

♦ 0246 

1299.1500 

584 

CANARO 

1,0000 

-30.0QQO 



535 

48.2700 

2.0000 




536 

.1250 

“,4614 

-1.3920 

.4691 

230.5311 

537 

.6250 

-.1793 

-.4972 

.1387 

244.8045 

533 

FUSELAGE 

1.0 

0.0 



539 

0.0 

21.0 




540 

.0250 

-.0976 

-.2731 



541 

. 0 7 5 y 

-.1 580 

-.1389 



542 

.1250 

-.2340 

-.1155 



543 

.1750 

.2906 

-.0939 



544 

.2250 

.14 90 

-.1636 



545 

.2750 

♦ 1182 

— , 1 49 7 



546 

,3 250 

-.0363 

-.0037 



547 

.3750 

-.1099 

,0907 



548 

, 4 2 5 U 

-.1744 

.0911 



549 

.4750 

-.ojoe 

.0765 



550 

.5250 

,0202 

.10-50 



551 

.5750 

,0319 

.0135 



552 

.6250 

.0339 

-.0113 



553 

.6750 

.1001 

.0519 



554 

.7250 

.0935 

.9415 



585 

« 775C 

• 0 1 8 0 

-.0173 



556 

.8250 

.0289 

-.1550 



557 

» a 7 5 J 

.1607 

-.2512 



558 

.9250 

“,0507 

.0576 



559 

.9750 

-.2572 

.5606 
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Program output, listing for example 8.2 


1N1EGRAT1CN OPTION 


CAS 

HR* 

£ X 
ASYM 

81 ARS 

S0SS-3C 

.2.10 67.5WS* 

1.2H, 20K 

ALT»R I GID/ AL PHA»0» DE-0» 

8ETA-8 

ALPHA- 

0.00 8ETA- 

8.00 

C8AR- 932.3 
TAS -12A5.1 

SAN 

• 

X 

KING - SG 

AXIS 

CP8UDY-WING2 

ITC-3 

SC-OFF 

THETA- -X. 

9A SREF* 

19A6.000 

8RFF- 820.38 CRFF- 16A.C5 

PANEL 


AREA 

IN2 

BASH 

IN 

TARN 

IN 

CP-L 

V-X 

KIPS 

3-L 

IN-KIPS 

T-L 

IN-KIPS 

CP-8 

V-P 

KIPS 

B-R 

IN-KIPS 

T-P 

IN-KIPS 

1 

1 


0.00 

0.03 

0.30 

.0193 

0.000 

0.030 

0.000 

-.0655 

0.0 OH 

0.003 

O.COO 

1 

2 


O.CO 

O.v > 

i.JO 

— , 197A 

0.000 

0.030 

0.000 

.2A20 

0.000 

O.COO 

O.CCO 

1 

3 


0 .00 

0.03 

0.00 

.A110 

0.000 

0.000 

0.000 

,C7eA 

C.OCO 

0.003 

o.cco 

A 

A 


G . G 0 

0.3-3 

0.00 

-.0237 

G.OGO 

0.000 

0.000 

.1662 

0.000 

C.000 

C.COC 

1 

5 


0.00 

0,00 

0.00 

-.0086 

0.000 

0.030 

0.000 

.1158 

0.030 

C-.000 

0.000 

z 

i 


0.00 

0.00 

0.00 

-.08A6 

0.000 

0,000 

0.000 

.0181 

o.ocr 

C.000 

o.cco 

2 

2 


v « uO 

C.UJ 

0. JO 

.1273 

0.000 

O.OUO 

o.coc 

,1226 

0.000 

0.000 

o.ccc 

2 

3 


2A0.56 

9.39 

-23.69 

.2269 

.372 

3.A97 

-8.820 

.1055 

.173 

1 .626 

-A.1C1 

2 

A 


2A99.e6 

37.17 

-50.71 

-.0319 

— . 5AA 

-20.216 

27.587 

• 1 A 31 

2.AAC 

90.697 

-123. 75A 

2 

5 


3076.95 

93.10 

-8A.05 

.0898 

X • 986 

185.033 

-158.529 

.1559 

3.27A 

321.232 

-275.220 

3 

X 


0.00 

0.0-3 

0.00 

• OOAA 

0.000 

0.000 

0.000 

• C355 

0.0 00 

0.000 

O.COO 

3 

2 


3A8.75 

12. 5A 

13.36 

. XA33 

.3A1 

A. 275 

A.55A 

.0992 

.2 36 

2.960 

3.152 

3 

3 


2IS9.76 

39.65 

-11.37 

.0673 

1.005 

39. 861 

-I1.A31 

.1295 

1.93A 

76,702 

-21.996 

3 

A 


26X8.77 

97,33 

-a2 • 82 

• 36AA 

1.150 

112.621 

-A9.257 

«1A20 

2.537 

2A6 . 326 

-loe.tio 

3 

5 


261fc . 77 

16A.91 

-76.20 

.1253 

2.238 

369.127 

-170. 56A 

.1398 

2.A97 

A11.8AA 

-190. 3C2 

A 

X 


792.39 

19.63 

A 6, 13 

.0753 

« A07 

7.982 

18.788 

.0616 

.333 

6.530 

15.370 

A 

2 


E229.il 

50.03 

21 .20 

.0 730 

1.1X0 

55.5A1 

23.532 

.1102 

1.676 

83.6A5 

35.523 

A 

3 


2383.69 

1C7.2A 

-8. AO 

« 08A9 

X.38A 

1A8.A25 

-11.62A 

,1165 

1.932 

277.165 

-16.225 

A 

A 


2369.69 

163. AO 

-36. 87 

.1217 

1.98A 

33A.097 

-77.106 

.1519 

2.A76 

A17.C03 

-96.2A0 

A 

3 


2369.69 

229.57 

-69.33 

.1202 

1.959 

AA9.821 

-135. 85A 

.1303 

2.12A 

A97.617 

-1A7.270 

5 

i 


1665.97 

66.93 

A8.07 

.1012 

1.288 

. 86.160 

61.916 

.0865 

1.127 

75.365 

5A.1A6 

5 

2 


1663.97 

122.6. 

2u.32 

.0655 

. 93 A 

102.227 

16.936 

.1110 

1.413 

173. 2A0 

26.703 

5 

3 


1365.97 

178.32 

-7.AA 

.1106 

1.A08 

251. 0A7 

-10.A71 

.1317 

1.676 

296. 9A1 

-12.A6S 

5 

A 


1665.97 

23A.UA 

•35.19 

. 1 A36 

X . 926 

A27.797 

-6A.323 

.1501 

1.911 

AA7.151 

-67.235 

5 

3 


1865.97 

2 39.75 

-62. 9A 

.1110 

1.A13 

A09.386 

-83.932 

.1189 

1.513 

A36.523 

-95.261 

S 

X 


2226.15 

15A.AB 

A3. 30 

.1028 

1 * 561 

2A1.158 

67.588 

.1165 

1.759 

273.297 

76.596 

6 

2 


2226.15 

2UA.37 

16. AA 

.1061 

1.6X1 

329. 28A 

29.71A 

.1185 

1.830 

367.767 

33.167 

6 

3 


2226.15 

2SA.23 

-6.A1 

.1365 

2.073 

527. 0A7 

-13.289 

• 1A22 

2.159 

5A9.055 

-13.6AA 

6 

A 


2226.13 

3uA . 1 3 

-31.26 

.1325 

2.012 

611.988 

-62.905 

• 1A06 

2.135 

6A9.A00 

-66.751 

6 

3 


2x26.15 

3 5 A . 0 A 

-56.12 

.1067 

1.620 

573.652 

-90.927 

• 1C71 

1.636 

575.813 

-91.26? 

7 

X 


190A.69 

25A.AA 

37.85 

• 1A18 

1.8A2 

A68.778 

69.730 

• 1A95 

3 ,9A2 

A9A.23A 

73.517 

7 

2 


X90A.69 

297.68 

16.30 

.1318 

1.712 

509.776 

27.92C 

. 13A8 

1,751 

521.379 

26.556 

7 

3 


19CA.69 

3A3.33 

-5.2A 

.1328 

1.725 

588. 26A 

-9.038 

• 1AC7 

1.828 

623.259 

-9.576 

7 

A 


19UA.69 

36 A, i 7 

-26.78 

.1196 

1.55A 

596.995 

-A1.617 

.1190 

1.5A6 

59A.OOO 

-A1.AC6 

7 

5 


19CA.69 

A27.A2 

-A 2. 32 

.0896 

X.16A 

A97.592 

-56.258 

• 08A0 

1.091 

A66.A93 

-52.7A2 

6 

X 


1216. XI 

3A3.15 

3A.39 

.2012 

1.669 

572.757 

57.396 

.2002 

1.661 

569.910 

57.111 

6 

2 


3216. XX 

37A..I9 

16.97 

.1267 

1.05X 

393.206 

19.939 

.1ACC 

1.161 

A3A.A91 

22.C32 

8 

3 


12ia.il 

AC5.UA 

3.55 

.1329 

1.103 

AA6.568 

3.918 

. 12A8 

1.035 

A19.353 

3.660 

e 

A 


1215.11 

A35.39 

-11.86 

.0A93 

• A13 

160.123 

—A. 901 

• 0A50 

.373 

162.761 

-A.A29 

6 

5 


1216.11 

A66.9A 

-27.28 

.15X6 

1.258 

587. 2A7 

-3A.306 ■ 

,1A39 

1.19A 

557. A20 

-32.565 


INTEGRATION OPTION 


SIN* i 

*IN6 - SG 

AXiS 










panel 

AREA 

1N2 

6AR.N 

IN 

TARN 

IN 

CP-L 

V-L 

KIPS 

B-L 

IN-KIPS 

T-L 

XN-KIPS 

CP-R 

V-R 

KIPS 

?-P 

IN-KIPS 

T-f 

IN-K3PS 

9 i 
9 2 
9 3 
9 9 
9 5 

397.98 

397.98 

397.96 

397.98 

397.98 

913.3') 

931.30 

999.69 

957.38 

971.03 

33.03 

26.96 

19.89 

13.31 

6.79 

.2996 

«ue9 

-.0323 

.3130 

.1260 

.800 

.321 

-.088 

.850 

.392 

339.555 

138.699 

-38.995 

389.085 

161,191 

26,917 

8.505 

-1.799 

11.313 

2.306 

,2911 

.1117 

-.0385 

.3102 

.1219 

.790 

,3C3 

-.105 

,e92 

,33b 

35C.5S1 

13C.655 

—96.920 

355.609 

155,156 

26.102 

8.023 

-2.C7S 

11.211 

2.222 



total integrated 

LOADS 

99.660 

11075,619 

-623.839 


59,506 

12003.200 

-999.208 



total loads 

PER 

OSAR 

.095969 

11.275017 

-.635066 


.055990 

12.219297 

-1.012107 



TOTAL LOAD 

COEFFICIENTS 

.023363 

.007065 

-.001773 


.028515 

.CC7657 

-.002826 



INTEGRATION OPTION 


CASE 1 
8R»ASYrt 

81 ARS 

SDSS-3C.2.1D 67.5VS.1.2H. 20K ALT. R IG1 0, ALPHA-O, DE-O, B ETA-8 

ALPHA • 0.00 

BETA® 0«Ci» 

C3AR- 962.3 
TAS -1245.1 


SAN 

* 2 

HORIZ TAIL 

- SC 

CPBODY-HORZTAIL ITC«3 

SC-OFF 

THETA. 1 

.00 SREF- 

236.770 

BREF* 

259.03 CRFF* 

149.38 

PAN 

EL 

ARtA 

6ARM 

tarn 

CP-L 

V-L 

8-1 

T-L 

CP-R 

V-R 

B-R 

T-R 



IN2 

IN 

IN 


KIPS 

IN-KIPS 

IN-KIPS 


KIPS 

IN-KIPS 

IN-KIPS 

1 

l 

1263.16 

16.24 

54.72 

-.4 3 54 

-3.49J 

-56.718 

-191.155 

.2646 ' 

2. 452 

39.817 

134.195 

1 

2 

1263.18 

16.24 

16.14 

-.1991 

-1.716 

-27.855 

-27.692 

.0873 

.752 

12.214 

12.142 

1 

3 

1263. 16 

16.24 

-22.44 

-.0335 

-.289 

-4.687 

6.477 

-.0540 

-.465 

-7.555 

10.441 

1 

4 

1263.18 

16.24 

-61.32 

.1349 

1.162 

18.873 

-70.928 

-.1391 

-1,199 

-19,461 

73.136 

1 

5 

1263.18 

16.24 

-99.59 

.1413 

1.218 

19.769 

-121.265 

-.1816 

-1.393 

-22.609 

136.666 

2 

1 

1765.97 

57.37 

23.71 

-.4598 

-5.539 

-317.780 

-131.305 

.3143 

3.786 

217.221 

69.755 

2 

2 

±765.97 

57.37 

-11.33 

-.1543 

-1.859 

-106.641 

21.060 

.0508 

.612 

35.109 

-6.934 

2 

3 

1765.97 

57.37 

-46.37 

.0007 

.008 

.484 

-.391 

-.0636 

-.766 

-43.956 

35.524 

2 

4 

1765.97 

57.37 

-31.40 

.1542 

1.85 6 

106.572 

-151.210 

-.1593 

-1.919 

-110.096 

156.211 

2 

5 

1765.97 

57.37 

-116,44 

.2010 

2.421 

138.916 

-281.937 

-.2452 

-2,954 

-169.464 

343.935 

3 

1 

1406.10 

105.11 

-16.68 

-.4706 

-4.514 

-478.984 

76.209 

,?745 

2.633 

279.399 

-44.453 

3 

2 

1406.10 

lob . A A 

-46.87 

-.1322 

-1.268 

-134.555 

59.426 

.0315 

. 3C? 

32.061 

-14.16C 

3 

3 

1406.10 

106.11 

-76.95 

,0081 

.078 

8.244 

-5,971 

-.0722 

-.693 

-73.466 

53.221 

3 

4 

1406.10 

104. 1L 

-106.63 

.1413 

1.355 

143.817 

-144.793 

-.1605 

-1.539 

-163.359 

164.466 

3 

5 

1406.10 

106.11 

-136.82 

.1710 

1.640 

174.046 

-224.406 

-.2262 

-2.170 

-23C.230 

296.646 

A 

1 

1199.70 

153.45 

-56.30 

-.4819 

-3.944 

-605.197 

222.054 

.2117 

1.733 

265.865 

-97.549 

A 

2 

1199.70 

163.43 

-31.36 

-.1248 

-1.121 

-156,731 

83.119 

.0215 

.176 

27.001 

-14.319 

A 

3 

1199.70 

153.45 

— Ii6.46 

-.0077 

-.063 

-9.670 

6.709 

-.0703 

-.575 

-36.267 

61.246 

4 

4 

1199.7o 

153.45 

-131.53 

.1135 

.929 

142.540 

-122. 17P 

-.1495 

-1.223 

-167.751 

160.930 

4 

5 

1199.70 

153.45 

-156.61 

.1335 

1.093 

167.657 

-171.105 

-.1897 

-1.552 

-236.236 

243.136 

5 

1 

796.92 

197.11 

-92.66 

-.5120 

-2.790 

-550.008 

258.545 

.1720 

.937 

134.768 

-66.855 

5 

2 

796.62 

197.11 

—113.21 

-.1239 

-.666 

-135.246 

77.678 

.0070 

.033 

7.520 

-4.319 

5 

3 

796.92 

.197.11 

-133.76 

-.0260 

-.142 

-27.93C 

18.954 

-.0749 

-.408 

-80.460 

54.601 

5 

4 

796.92 

197.11 

-154.31 

.0701 

.362 

75.304 

-58.953 

-.1414 

-.771 

-151.897 

116.916 

5 

5 

796.92 

197.11 

-174.96 

.1300 

.708 

139.651 

-123.889 

-.1641 

-.894 

-176.262 

156.366 

6 

1 

725.94 

238.67 

-127.26 

-.5688 

-2.817 

-672.265 

358.464 

.1159 

.574 

336.982 

— 73 .C 41 

6 

2 

725.94 

238.57 

-143.51 

-.1424 

-.705 

-168.303 

101. 19e 

-.0019 

-.009 

-2.246 

1.35C 

6 

3 

725.94 

238.67 

-159.75 

.0091 

.045 

10.755 

-7.199 

-.0648 

-.320 

-76.351 

51.105 

6 

4 

725.94 

238. L7 

-175.99 

.1226 

.607 

144.901 

-106.851 

-.1235 

-.612 

-145.965 

107.635 

6 

5 

725.94 

236.67 

-192.24 

.1589 

.787 

187.804 

-151.271 

-.1525 

-.755 

-16C.240 

145.176 


TOTAL 

INTEGRATED 

LOADS 

-16.554 

-1973.236 

-802.605 

-6.222 

-929.980 

2267.415 

TOTAL 

LOADS PER 

QBAR 

-.016852 

-2.006761 

-.817054 

-.006334 

-.946723 

2.306236 

TOTAL 

LOAD COEFFICIENTS 

-.070579 

-.032479 

-.022908 

-.026527 

-.015307 

.064715 


c» 












-P=> 













INTEGRATION OPTION 










CASE 1 

SX ARS 

S0SS-3C. 

2.10 67. 

SWS_»1.2M» 20K 

ALT. RIGID; ALPHA*0» DE*Oj> BETA* 8 

ALPHA* 

0.00 BETA- 8. CO C8AR* 9E2.3 


MR* 

ASYM 









TAS *1245.1 


SAN 

- 3 

vert tail - sg 

CP3QDY*VERTTIP ITC-3 

SC* ON 

THETA. 90 

.00 SREF" 

247,400 

BREF* 206.76 CSCF* 166.95 


PAN 

El 

AREA 

barn 

T ARM 

CP-R 

V-R 

8-R 

T-R 






IN2 

IN 

IN 


KIPS 

IN-KIPS 

IN-KIPS 




I 

1 

553.15 

6.63 

90.30 

— »9A17 

-3.553 

-23.6A1 

-320.882 




I 

2 

553.15 

6.65 

AV.13 

-.1576 

-.595 

-3.956 

-29.219 




I 

3 

553.15 

6.65 

7.96 

-.3073 

-1.160 

-7.715 

-9,235 




I 

A 

553.15 

6.65 

-33.21 

-.3683 

-1.390 

-9.2A5 

A6.1A6 




A 

5 

553.15 

6.65 

-7A.38 

-.3330 

-1.257 

-8.360 

93.A55 




2 

1 

940.29 

25.69 

66.03 

-1.0 563 

-6.788 

-17A.356 

-A61.832 




2 

2 

940.29 

26.69 

30.38 

— • 253A 

-1.625 

-A1.7A8 

-A9.373 




2 

3 

940.29 

25.69 

-7.28 

-.3536 

-2.268 

-58.256 

16.519 




2 

A 

940.29 

25.59 

-AA.9A 

— . 358A 

-2.363 

-60.69A 

106.199 




2 

5 

940.29 

25.69 

-32.60 

-.3399 

-2.180 

-55.999 

180.086 




3 

A 

653.39 

A6.32 

A1.91 

-1.1569 

-5.165 

-248,023 

-216. A63 




3 

2 

653.39 

A8. 02 

6.37 

-.3699 

-1.6A9 

-79.165 

-13.793 




3 

3 

653.39 

A3 . 02 

-25.17 

-.3960 

-1.765 

-8A.750 

AA.A31 




3 

A 

653.39 

A6.02 

-58.71 

-.3862 

-1.721 

-82.633 

101. x6? 




3 

5 

653.39 

48.02 

-92.25 

— . 3A29 

-1.528 

-73.386 

1A0.995 




4 

1 

971. A7 

7A.32 

11.13 

-1.3AA7 

-8.911 

-662.273 

-99.183 




A 

2 

971. A7 

7A.32 

-17.56 

-.A612 

-3.056 

-227. 1AA 

53.661 




A 

3 

971. A7 

7A.32 

— A6.25 

-. AAA3 

-2.9AA 

-218.821 

136.163 




A 

A 

971. A7 

7A.32 

-7A.93 

— »A069 

-2.697 

—2x0.401 

202.056 




A 

5 

971. A7 

7A.32 

-1./3.62 

-.3061 

-2.0A2 

-151.741 

211.567 




5 

X 

660.10, 

105.3 7 

-25.79 

-1.5950 

-7.162 

-760.391 

185.228 




5 

2 

6 6 0 . 1 0 

105.67 

-A8.66 

-.57A2 

-2.586 

-273. 7A1 

125.807 




5 

3 

66 J. 10 

1C5.67 

-71.52 

-.5005 

-2.254 

-238.606 

161.193 




5 

A 

660.13 

105.37 

-9A.39 

-.2977 

-1.3A1 

-1A1.92A 

126.532 




5 

5 

660 . 10 

105. er 

-117.26 

-.118A 

-.533 

-56.AA5 

62.515 



f 

6 

i 

A33.03 

132.56 

-57.02 

-1.887A 

-5.575 

-739. 08A 

317.906 




6 

2 

433.03 

132. 55 

-7A.96 

-.5312 

-1.569 

-208.012 

117. 62e 



1 

6 

3 

433.03 

132.55 

-92.91 

-.1397 

-.A13 

-5A.705 

3B.3A0 




6 

A 

A33.03 

132.55 

-110.65 

-.0690 

-. 20A 

-27.020 

22.59A 




6 

5 

A3 3. 53 

132.55 

-126.79 

— . JA7A 

—.140 

-18.561 

18.033 







total integrated 

LOADS 

-76.A5A 

-A 990. 81 7 

1308. IA2 







total loads PER 

OSAR 

-.077831 

-5.080668 

1.331692 






f 

total LOAD coefficients 

— .31A595 

-.09932A 

.028466 

5 

* 


integration option 


CASE X B1 ARS S0SS-3C.2.10 67.5VS/1.2M* 20K ALT* RIGID/ AL PHA-O* DE-O* BETA -8 

HR-ASYN 


SAN 

* 

VERT TAIL 

- ROOT 

CP800Y-VE 

RTTAIL ITC-3 

SC- ON 

THETA- 90 

.00 SREF* 

PANEL 

AREA 

BARN 

TARN 

CP-R 

V-R 

8— R 

T-R 



IN2 

IN 

IN 


KIPS 

IN-KIPS 

IN-KIPS 

l 

l 

12X7.06 

21.57 

98.03 

— .6A62 

-5.365 

-115.701 

-525. 9A0 

i 

2 

1217.06 

21.57 

A3. 32 

— . A57A 

-3.797 

—51. 897 

—3 63. 503 

A 

3 

1217.06 

21.57 

-1.39 

-.5850 

-A. 357 

-10A.7A3 

6.736 

A 

5 

1217.06 

21.57 

-51. 1C 

-•A035 

-3.380 

-72.2A6 

171.175 

1 

5 

1217.06 

21.57 

-100.31 

-.103e 

-.362 

-18.585 

86.873 

2 

1 

780.20 

52. AO 

73. 9A 

-.8009 

-A. 263 

-180.750 

-315. 17A 

2 

2 

760.2:1 

A2.A j 

26.03 

-.6260 

-3.332 

-1A1.278 

-93.33A 

2 

3 

7 CO .20 

A2.AJ 

-17.86 

-.5953 

-3.168 

-13A.3A9 

56.656 

2 

A 

78>*.20 

A2.AJ 

-63,79 

-.3307 

-1.760 

-7A.633 

112.281 

2 

5 

780,20 

A2.A0 

-109.71 

-.UA5S 

— . 2AA 

-10.336 

26.7A1 


TOTAL 

INTEGRATED 

LOADS 

-30.998 

-93A.519 

-657.538 

TOTAL 

LOADS 

PEP 

Q8AR 

-.031556 

— .9513A3 

-.669376 

TOTAL 

LOAD 

COEFFICIENTS 

-.1275A9 

-.018598 

— .01A319 


ALPHA- 0.00 BETA- 6.00 C8AR- <582.3 

TAS -12A5.1 


2A7.AOO BREF- 206.76 CREF* 168.55 


CO 

cn 


INTEGRATION OPTION 


5.00 


CASE 1 el 4RS SDSS-3C.2.1D 67.5WS.1.2M* 23K ALT.RIGID, ALPHA*0. 03*0. BETA “3 
rtP-ASYN 


AtpMA- o.OC 6ET A* 


C8AR- 582.3 
TAS -12A5.1 


SAN» 5 F.D FUS SO VERT CP 30DY- FUSELAGE ITC«1 SC» ON 


SREF* 1956.000 BR£F» 820.08 CFEF- 165.05 


PANEL 

AREA 

BARN 

TARN 

CP-R 

V-R 

8-R 

T-R 



IN2 

IN 

IN 


KIPS 

IN-KIPS 

IN-KIPS 

1 

1 

2731.01 

562.2) 

0.00 

-.3978 

-1.822 

-852.131 

0.000 

1 

2 

£677.31 

373.60 

0.00 

-.1880 

-7.261 

-2723.168 

3.00 

1 

3 

75u5 • 3G 

285.03 

0.00 

-.2350 

-11.819 

-3368.575 

0.0*30 

A 

5 

9v75.5a 

196.53 

0.90 

.2 9v*6 

17.989 

3533.002 

0 ® ooo 

1 

5 

10351.92 

1C 7. 3 J 

0.00 

.1590 

10.512 

1133.169 

0.000 

1 

6 

8066.12 

31.75 

0.00 

,1162 

6.522 

207.060 

0.000 

1 

7 

0.00 

0.00 

0.00 

-.0363 

0.000 

0.000 

0.000 

1 

8 

u.30 

0.0 J 

0.00 

-.1099 

0.000 

0.000 

0.000 

1 

9 

0 .00 

0.00 

0.00 

-.0755 

O.QCO 

0.00 

a . oso 

1 

10 

0.08 


0.00 

— . 0*038 

0.000 

0.030 

0.000 

1 

a 

0.03 

0.00 

0.00 

.0202 

*3.000 

9.000 

o.ooc 

1 

12 

O.UC 

0.0 J 

0.30 

.3319 

0.000 

0.000 

0.030 

1 

13 

0.00 

0.03 

0.00 

.0339 

0.000 

O.OC 

0.030 

1 

15 

0.00 

0.33 

0.00 

.1001 

0.000 

0.000 

o.oco 

1 

15 

0.00 

0.03 

0.00 

.0935 

0.030 

0.030 

0.0 00 

1 

16 

0.00 

3* 03 

o.uO 

.0120 

0.000 

0.000 

0.000 

1 

17 

0.00 

o.oo 

0.00 

.0289 

o.oco 

0.000 

o . coc * 

1 

18 

0.03 

0 • jJ 

0.00 

.0307 

0.000 

O.OOL 

0.000 

1 

19 

0.00 

0. 03 

0.00 

-.0507 

0.000 

0.030 

0.000 

1 

20 

0.00 

O.OJ 

0.00 

-.2572 

0.000 

0.039 

0.C30 


total 

integrated 

LOADS 

15.100 

-2057.551 

0.000 

TOTAL 

LOADS 

per 

93AR 

.015355 

-2.095585 

0.0000 90 

TOTAL 

LOAD 

COEFFICIENTS 

.007376 

-.001312 

0.000000 



INTEGRATION OPTION 

CASE 1 31 ARS SDSS-3C.2.1D 67.5WS,1.2H> 20K ALT# RI GID, AL PWA»0* DE«0» BETA-6 

HR-ASYH 


ALPHA- 0.00 PET A- 8.00 


CBAP- 98) 

TAS -1 2A I 


.3 

.1 


SAN- 6 FuD FUS SG LAT 


CP80DY-F0SELAGE ITC-2 SC- ON 


SREF- 1996.000 


8REF- 620. Oe CREF- 189.05 


PANEL 

AREA 

BARN 

TARN 

CP-R 

V— R 

B-R 



IN2 

IN 

IN 


KIPS 

IN-KIPS 

1 

1 

2731.01 

962.29 

0.00 

-.2731 

-5,088 

-2351.596 

1 

2 

5677.31 

373.60 

0.00 

-.1369 

-5,379 

-2009.791 

1 

3 

7959.30 

265.33 

0.00 

-.1155 

-5.839 

-1662.699 

1 

A 

9079.91 

x 96 .93 

u . 30 

-.0939 

-5.913 

-1191.600 

i 

5 

10391.92 

107.63 

0.30 

-.0636 - 

-9.987 

-983.688 

1 

6 

6366.12 

31.75 

0.30 

-.0997 ' 

-2.792 

-87.059 

1 

7 

6. CO 

G.J'3 

0.00 

-.0037 

0.000 

0,000 

1 

3 

0.00 

0. . 3 

0.30 

.0907 

9.900 

0.090 

1 

9 

3.00 

0.30 

0.00 

.0911 

0.000 

0.033 

A 

10 

t .35 

a . . ■> 

0.50 

.0 765 

C. 300 

0.09C 

1 

U 

C.o» 

•3. 33 

0.00 

.1050 

0.000 

0.03C 

I 

12 

C» • Ow 

0.33 

0.30 

.0135 

0.000 

0,030 

1 

11 

0.00 

0.y3 

0.30 

-.0113 

0.000 

0.030 

1 

19 

C • 30 

0.33 

0.30 

.0519 

0.000 

0.000 

1 

15 

0.00 

0.33 

0.39 

.0915 

0.000 

0.030 

1 

13 

0.00 

3.33 

0.30 

-.3173 

o.eec 

0.000 

1 

17 

0.30 

0.3) 

3.30 

-.1550 

0.000 

0.030 

I 

16 

0.00 

3.30 

0.00 

-.2512 

0.000 

0.000 

I 

19 

0.00 

3 « *3 3 

0.00 

.0576 

o.oco 

o.ooo 

1 

20 

0.00 

0.33 

0.50 

.5306 

0.500 

0.033 


T-R 

IN-KIPS 

0.000 
0.000 
0.000 
o.coc 
0.000 
0.000 
o.oco 
0.000 
0.000 
0. 000 
0.000 
0.000 
3.00 C 
0.000 
0.000 
0.000 
0.000 
0.000 
0,000 
0.000 


TOTAL 

INTEGRATED 

LOADS 

-29.393 

-7736.332 

0.000 

TOTAL 

LOADS PER 

OSAR 

-.029871 

-7.675612 

0.000000 

TOTAL 

LOAD COEFFICIENTS 

-.015350 

-.009935 

0.000000 


co 

"v J 


00 

00 


INTEGRATION OPTION 


CAiE 1 81 ARS S0SS-3C.2.1D 67.5WS,1»2M, 20K ALT, RI GIO, Al PHA*3, 0£*C, BETA»8 

Hk-ASYH 


ALPHA* O.vO BETA* 8. CO C5AR 

TAS 


SAh* 7 

AFT PUS SG 

VERT CP3'J0Y*FUSELAGE ITC-1 

SC* ON 

PANEL 

AREA 

IN2 

8ARN 

IN 

TARN 

IN 

CP-R 

V-R 

KIPS 

I 

X 

0.00 

0.00 

3.00 

-.0978 

0.000 

1 

2 

0.00 

O.JO 

0.00 

-.1880 

0.093 

i 

3 

O.GC 

0.00 

0.00 

— .2 3A0 

0.000 

1 

A 

C.*3 

o . oo 

o . 0‘) 

.2 906 

0 . 0 0 

i 

3 

c.oo 

0.00 

O.oO 

« 1A90 

0.000 

l 

6 

0.00 

0.0) 

0.00 

.1182 

0.000 

1 

7 

0 *C 0 

0. )) 

0,30 

-.0363 

0.000 

1 

i 

O.viO 

0. o) 

0.00 

-.1099 

3.000 

l 

9 

C.00 

0.00 

0.00 

— .07AA 

0.000 

L 

10 

0 .00 

3.0) 

0.00 

— .UOC8 

0.000 

1 

XX 

0 . \)Q 

0. JJ 

0.00 

.0202 

o.oco 

X 

12 

0. 00 

0. 30 

O.oO 

.03X9 

0.000 

I 

Li 

0.00 

0.00 

0.00 

.0339 

0.300 

1 

1A 

0. ,0 

0.00 

0.00 

.1001 

0.000 

X 

15 

1232. AO 

6.75 

O.GO 

.0935 

.796 

X 

16 

7982.33 

57.6) 

0 « Oo 

• ul20 

.653 

X 

A 7 

7820.33 

XA6.A0 

o.oc 

.0239 

I.5A3 

X 

13 

7oAo. 13 

235.00 

0.09 

.0807 

A. 209 

1 

19 

5779.20 

323.63 

0.00 

-.0507 

-1.999 

X 

20 

1873.93 

A12.20 0.00 -.2572 

TOTAL INTEGRATED LOADS 
10TAL LOADS PER OBAR 
TOTAL LOAD COEFFICIENTS 

-3.297 

1.896 

.031930 

.003992 


S»EF* X9A6.00C 8RFF* 820.08 CEEF* 


B-R 

T-R 

IN-KIPS 

IN-KIPS 

0,000 

0.000 

0.000 

0.000 

0 . 000 

0.000 

0.000 

Q.OOC 

0.000 

0.030 

0.000 

0.000 

0,000 

0.000 

0.000 

0.000 

0.030 

O.COO 

0.000 

O.COO 

0.000 

0.000 

0.000 

0.000 

0,000 

O.COO 

0 • 000 

0.000 

5.206 

0.900 

37.768 

0.000 

225.855 

o.oao 

969.178 

0.000 

— 6A6.80A 

O.COO 

-1358.936 

0.000 


-7A7.603 

0.000 

-.761063 

0,000000 

-•OOOA77 

0.000000 


' 952 *3 
■12A5 .1 

16A.05 



integration 


OPTION 


CAS£ 1 61 ARS SCSS-3C.2.1D 67.5 WS» 1 .2M, 20K ALT» R I G1 D» Al PHA»0» DE*Oj BET A *8 

NR-ASYH 


ALPHA- 0.00 BETA- e.CO 08AR- 

tas * 


SAN- 8 

AFT FUS SG 

LAI CP800Y-FU 

SEtAGE ITC-2 

SC* ON 

PANEL 

AREA 

IN2 

BARN 

IN 

TARN 

IN 

CP-R 

V-R 

KIPS 

1 

1 

0 . C 0 

C.'J J 

0.00 

-.2731 

G.OCO 

1 

2 

0.00 

0.03 

0.00 

-.1339 

0.030 

1 

3 

0*00 

0. JO 

0.00 

-.1155 

0.000 

1 

4 

0.00 

C . >0 

0.x 0 

-.0939 

0.000 

1 

5 

0. jo 

0. JO 

0.00 

-.0536 

o.oco 

1 

& 

0.00 

0. JO 

o.uo 

-.0497 

0.000 

1 

7 

C.oC 

0 . 0 0 

0.00 

-.0037 

o.oco 

1 

8 

0.00 

0 • o J 

0. JO 

.0907 

o.ooa 

l 

9 

0.00 

0.00 

0.00 

.0911 

o.oco 

i 

10 

0 . 00 

0 • JO 

0. JO 

.0 765 

0.000 

l 

AX 

C.oo 

0. OJ 

O.oO 

.1050 

0.000 

l 

12 

u.oO 

0. JJ 

0. JO 

.0135 

0.000 

1 

13 

0.00 

0.03 

0.00 

-.0113 

0.000 

1 

a4 

v • 00 

0. J J 

0.00 

.0519 

0.000 

1 

15 

1232.40 

6.75 

0.00 

. J415 

.349 

1 

16 

7962.33 

57.39 

0. JO 

-.0173 

-.942 

1 

17 

7825.33 

146.40 

0.00 

-.1550 

-8.274 

1 

13 

7646.18 

235.00 

0.00 

-.2512 

-13.102 

1 

19 

5779.20 

323.60 

0.00 

.0576 

2.271 

1 

20 

1873.98 

412.20 0.00 .5806 

TOTAL INTEGRATED LOADS 
TOTAL LOADS PER OSAR 
TOTAL LOAD COEFFICIENTS 

7.442 

-12.257 

-.012478 

-.006412 


SR EF- 1946.000 BREF- 820.06 CREF" 


B-R 

T-R 

IN-KIPS 

IN-KIPS 

0.000 

0.000 

0.000 

O.COO 

0,000 

0.000 

O.Ov.0 

0.(00 

0.000 

0.000 

0,000 

9, GOO 

0,000 

0.000 

0.000 

0.000 

0.090 

0.000 

0.090 

0 , coo 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

o.ooc 

2.355 

0.000 

-54.449 

0.000 

-1211.333 

0.000 

-3079.076 

0.000 

734.830 

0.000 

3067,577 

o.ooc 


-540.096 

0.000 

-.549819 

0.000000 

-.000345 

0.000000 


462.3 
124?. 1 

164.05 


<o 

o 


ADDITIONAL 

LOADS 

OPTION 












CASE I 
MR* ASYM 

61 ARS SQSS- 

3C. 

2.10 67.5US.1 

,2M* 20K 

ALT. RIGID* ALPHA *0*D£ 

-0. BETA. 8 


ALPHA* 0.00 

BETA* 

6. CO CPAR* 982.3 

TAS *1245.1 

SAN* 

31 VT 

ROOT 

TOTAL 



ITC«4 

SC* ON 

NT* 6 


SREF* 

247.400 BPEF* 206.76 

CBEF* 

186.95 

CENT 

2RLXNE 















CCMP3NEST 

DESCRIPTION 

VALUE V 

FACTOR 

9 FACTOR 

T FACTOR 

V KIPS 

8 IN-KTPS 

T IN-KJPS 

CV 

C8 

CT 

1 

2 

3 

4 

5 

6 

3 VEST 
3 VERf 

3 VERT 

4 VERT 
4 VERT 
4 VERT 

TAIL 

TAIL 

TAIL 

TAIL 

TAIL 

TAIL 

- SG CL 

- SG CL 

- SG CL 

- ROOT CL 

- ROOT CL 

- ROOT CL 

V 

a 

T 

V 

a 

T 

-76.454 

-4940.817 

1308.142 

-30.998 

-934.519 

-657.538 

1.090 

0.000 

0.000 

1.000 

0,000 

0,000 

61.560 

1,000 

0.000 

0.000 

1.690 

0.000 

-46.440 

0.000 

1.000 

0.000 

0.009 

1.000 

-76.454 

0.009 

0,009 

-30,998 

0.000 

0.009 

-4706,534 
-4990.917 
0.000 
O.OCO 
. -934.519 
C.OOC 

3550.543 

0.000 

1308.142 

C.CPC 

c.oco 

-657,538 

-.314595 
0,001.000 
O.CDCOjP 
-.127549 
C. 000030 
0.000000 

-. 0936ft 
-.099324 
0.000000 
c.ooocct 

—.01959* 

0,000000 

» C 77321 

o.toooco 

,026468 

G.C-CCCCO 

:.o cocoo 

-.014319 






TOTAL LOADS 

AND COEFFICIENTS 


-107.452 

-10631.869 

4201.147 

-.442144 

-.211569 

.091469 


ADDITIONAL LOADS OPTION 


CASE X B1 ARS SOSS-3C 
flR-ASYN 


SAN- 32 AFT FUS SG V-TOJ 


CENTERLINE 

COMPONENT DESCRIPTION 

1 7 AFT FUS SG VfckT CL V 

2 7 * F I FUS SG VE-T CL 6 

3 2 HORIZ Tail - SG L4 V 

* 2 HQRIZ TAIL - SG RH V 

s 2 HOkIZ tail - SG LH I 

6 2 HORIZ TAIL - SG H T 


2. ID 67.5WSa1.2N* 20K ALT* RI GI Da ALPHA-0* DE-0» BETA-8 
ITC-9 SC- ON NT- 6 


SREF- 


ALPHA- 


1996.000 


0.00 

BPEF- 


8ETA- 8.00 C PAR • 962.3 
TAS -1295.1 

820.08 CPEF « 1B9.05 


VALUE 

V FACTOR 

B FACTOR 

T FACTOR 

V KIPS 

1.896 

1 .000 

o.coo 

0.000 

1.896 

•797*603 

0.000 

1.000 

0.000 

C e 000 

•16.559 

L .000 

299.500 

0.000 

•16*554 

•6 *222 

1 pO\jO 

299.500 

a .:»oo 

~6#2£2 

•802# 605 

*j#OwO 

-1.000 

0.000 

0*000 

2267*915 

0 *000 

-1.000 

0.0>)3 

0*000 


TOTAL LOADS AND COEFFICIENTS 


B IN-KIPS 

T IN-KIPS 

cv 

C 8 

CT 

0.000 

-797.603 

-9097.997 

-1521.231 

802.60' 

-2267.915 

0.000 
P.OCG 
C.OOC 
C.c C- A 

o.ooo 

o.coo 

.000992 
O.OOC 300 
— .OC866C 
-.003255 
O.COCOOC 
O.OOGCOO 

0. rococo 

-.C00977 
-.'C2J 82 
-.0 0097C 
.000512 
-.001996 

o.ooccco 
o.ccccco 
r.CCCC C q 
O.CCCCCO 
o.oococ-o 
o.ooooco 

-7781.191 

o.cco 

—.010923 

-.009969 

o.ooceoo 


ADDITIONAL LOADS option 


CASc 1 81 ARS S0SS-3C.2.10 67.5WS.1.2M. 20K ALT, RIGID, ALPHA-0, DE*0»8ETA *8 

BR-ASTN 

SAN- 33 AFT FUS SG L-TOT ITC-9 SC* ON NT* 10 


ALPHA* G.OC BETA* 8.00 OSAR* 962.3 

TAS *1295.1 

SREF- 1996.000 BREF- 823.08 C*EF- 169.05 


CENTERLINE 




COMPONENT description 

VALUE V 

FACTOR 

B FACTOR 

T FACTOR 

V KIPS 

B IN-KIPS 

T XN-KIPS 

C V 

C o 

CT 

1 

3 

AFT FUS SG l AT 

CL 

V 

-12.257 

1.000 

0.030 

3,000 

-12,257 

0.000 

O.CCO 

-.006912 

e.ccococ 

o.ccccco 

2 

3 

AFT FUS SG LAT 

CL 

a 

—590.096 

0.000 

1.00*5 

0,000 

0.000 

-590. 096 

9.CC9 

o.coooot 

-.00*395 

3. COCO CC 

3 

a 

AFT FUS SG IAT 

CL 

T 

O.GCO 

0,000 

0.000 

1.000 

0.000 

0.000 

O.COO 

O.OOOJjC 

c.ccoeco 

o'.cococc 

9 

31 

VT ROOT TOTAL 

CL 

V 

-107.952 

1.000 

198.060 

91.000 

-107.952 

-21281.932 

-9905.530 

-.056211 

-.C13576 

-.C12522 

5 

31 

VT ROOT TOTAL 

CL 

3 

-10631.869 

0.030 

0.000 

l.COO 

0.033 

O.OO 

-1063*. £69 

0.0-36000 

C.tTtCCC 

-.03C219 

6 

31 

VT ROOT TOTAL 

CL 

T 

92i- 1 .19 7 

O.CO'J 

-l.COO 

3.000 

0,00 

-9201.197 

O.f CO 

0.000000 

-. 00266 C 

c.ccocco 

7 

2 

HQrIZ TAIL - SG 

IH 

V 

-16.559 

0.000 

0.030 

10.750 

0.CC3 

c.oor 

-177.957 

0.030000 

c.rcooc-c 

-.CCOEC 6 

6 

2 

HORIZ TAIL - SG 

RH 

V 

-5.222 

0.000 

0.000 

-10.750 

0,000 

0,000 

66.069 

0.000000 

O.OOuOOO 

.CC0190 

9 

2 

HORIZ TAIL - SG 

Lrt 

B 

-1973.236 

0.000 

C.OOC 

1.000 

0.003 

0.000 

-1973.236 

0.C0C3C0 

f .0000C3 

-.005609 

1- 

2 

horiz tail - SG 

RH 

B 

-929.960 

0,000 

0.000 

-1.000 

0.000 

0.000 

929.960 

0.000330 

0 « vi' C 

.CC2693 






TOTAL LOADS 

ANO COEFFICIENTS 


-119.709 

-26023,175 

-16191.728 

-.062623 

—©C166C0 

-.096022 


INTEGRATION OPTION 


ADDITIONAL LOADS OPTION 


CAS £ 


CO 

CO 


COUPLET £ 


40 WIND 
-F=> 


TUNNEL OPTION 


CASE 1 ai APS WOP-20 RIGID 

P« 0.0 Q« 0.0 R» 

WIND 

0.0 

TUNNEL DATA 
DSL* 0.0 DSR- 

N*1.20 

0.0 

WS*67.5 
DRU* O.uO 

9-29-80 
PRt * 0.00 

ALPHA- 

DE* 

a. coco 

f .QCCO 

SETA* 8.C00C 
. OA* O.OOOC 

OeAS* 962.32 
TAS-1245.10 

• TN* i WING - SG AXIS SREF* 

1946. 

000 BREF* 

820.08 

CREF* 

184.05 






LEFT HAND 


NScO 

AERODYNAMIC EFFECT 

VALUE 

CV PER 

CB PER 

CT PER 

CV 

CB 

CT 

V KIPS 

e IN-KIPS 

T IN-KIPS 

101 

ALPHA * 0 


A. GO 

.029213 

.008331 

-.0C3133 

,029213 

.009831 

-.003133 

55.843 

13844.011 

-1102.260 

‘102 

ALPHA 


0 . jO 

.312051 

.003229 

.000584 

0.000000 

J.OCCOCO 

O.C OOCCO 

O.CCG 

C.003 

O.COc 

103 

ALPHA OUT 


0.00 

0 .000000 

0.300000 

O.OCOOOO 

0.000000 

O.OCOOOO 

3.000000 

0.000 

C'.roc 

C.CCO 

104 

DELTA spoiler 


0.00 

.000290 

.000057 

-.•3C0L34 

o.coaooo 

a.occcoo 

3.0COOC3 

C.030 

c.cco 

c.coc 

105 

ROLL VEL3C P 


0.00 

-.003232 

-.000955 

-.OC0223 

0.000000 

O.OCOOOO 

3.CC0OCO 

0.000 

0.000 

c.ecc 

105 

PITCH VEL3C 0 


0.00 

.04 2987 

.012062 

-.001284 

0 .030000 

G.OCOCCC 

0.003C03 

9.0CC 

0,000 

c.cco 

10? 

BETA ALPHA ZERO 

A/S 

a. oo 

-.000759 

-.000167 

.000149 

-.006072 

-.001336 

.701192 

-11.607 

-2094.395 

419. 3EC 

103 

BETA ALPHA A/S 


O.Oo 

-.0CC226 

-.000058 

-.000025 

0.000000 

0.000000 

O.OCOOOO 

O.COO 

0.003 

o.coc 

109 

BETA ALPHA ZERO 

SYM 

3.00 

.000311 

.000119 

-.000174 

.002488 

.300952 

-.001392 

4.756 

1492. 413 

-489.746 

11 j 

BETA ALPHA STM 


0.03 

.3f 0 008 

.000005 

-.600011 

G.COCOOG 

O.OCOOOO 

3.0-lOOuO 

0.000 

C.000 

0.000 


WLN* 

1 

TOTAL 

LOADS 

ON 

SURFACE 

.025629 .006447 -.003333 

46.992 

13242.029 

-1172.646 

WLN* 

2 

T3TAL 

LOADS 

ON 

SURFACE WITHOUT ALPHA*3 TERM 

-.003584 -.003384 -.OC0200 

-6.851 

-601.932 

-70.366 


RIGHT 

HAND 











NSE8 


AERODYNAMIC effect 

VALUE 

CV PER 

CB PER 

CT PER 

CV 

CB 

Cl 

V KIPS 

B IN-KIPS 

T IN-KIPS 

101 


ALPHA * 0 

i.OC 

.329213 

.008931 

-.003133 

.029213 

.008831 

-.003133 

55,643 

13844,011 

-1132.260 

102 


ALPHA 

0.00 

.012051 

.033229 

.0C0584 

0.000000 

O.OCOOOO 

0.000000 

0.000 

0.030 

O.COO 

103 


ALPHA DOT 

3.00 

0.000000 

0.000000 

O.OCOOOO 

0.003000 

0.0M03O 

3.000000 

C.COC 

C.CCO 

0.000 

1/4 


DELTA SPOILER 

3.00 

-.030290 

-.00035 7 

.CL 0034 

O.OCOOOO 

O.OCDCOO 

3.000 DC 3 

O.OCO 

O.COO 

C.CCO 

Ui5 


ROLL VtLDC P 

0.00 

.003232 

.000955 

.000223 

O.OCOOOO 

■3.000000 

0. OOGOCO 

C.CCO 

0.003 

c.cco 

136 


PITCH VELOC'O 

0.00 

.042987 

.012362 

— .3C12S4 

0.000000 

0.000000 

0.000000 

0,000 

0.000 

c.coc 

137 


BETA aLPHA ZERO a/S 

8.00 

.000759 

.000167 

-.000149 

.0G6C72 

.001336 

— .0 n 1192 

11.607 

2094.395 

-419.360 

103 


beta alpha a/s 

3.30 

•0C0226 

.000058 

.000025 

0.000030 

O.OOOCOO 

O.OOOCOO 

O.COC 

C.CCO 

C.CCO 

109 


S6Ta alpha ZtRO SY1 

a. oo 

.1003,1 

.900119 

-.000174 

.002488 

.003952 

-.001392 

4,756 

1492.413 

-469.746 

UJ 


3ETA ALPHA SY.M 

0.00 

•OOOOoE 

,300005 

-.000011 

0.000000 

0.000000 

O.OOOCOO 

0.000 

O.COC 

O.f CO 

WLN* 

1 

total LOADS ON 

surface 




.037773 

.011119 

-.005717 

72.207 

17430.61 3 

-2011. 4C6 

WLN* 

2 

TOTAL LOADS OH 

surface 

WITHOUT ALPHA.O TERM 

.006560 

.002288 

-.002584 

16,363 

3586.607 

-909.126 


\ 


i 


»1N0 


TUNNEL option 


CASE 1 

BX 

ARS WOP-23 RIGID WIND 

TUNNEL DATA 

H*1.20 

WS*67.5 

9-29-SO 

ALPHA* 

O.COOO 

BETA* B.OOCO 

06 AR * 982.32 


?* 

0.3 Qrn 3.0 R* 3.0 

DSL* 

0.3 DSR* 

0.0 

ORU* 0.00 

DRL* 0.00 

DE» 

O.OCOO 

DA- 0.0000 

TAS*1295.1C 

*TN* 2 

HORIZ 

TAIL - SG SREF- 238. 

773 

B«6F* 

259.03 

CSEF* 

199.38 






LETT HAND 


NSEO 

AERODYNAMIC EFFECT 

VALUE 

CV PER 

CB PER 

CT PER 

CV 

CB 

CT 

V KIPS 

B IN-RIPS 

T IN— K I PS 

23X 

ALPHA * 0 

1.00 

-.136182 

-.099982 

.051116 

-.136162 

-.099982 

.05113 6 

-31.991 

-3006.289 

1790.999 

232 

ALPHA 

0.00 

.092237 

.018920 

-.019927 

0,000000 

0.003000 

0. 00-0003 

0.030 

C.C30 

C.COO 

233 

DELTA h 

0.00 

.063513 

.027107 

-.027833 

O.COOCOO 

0.000000 

o.orocoo 

C.OCO 

C.COO 

C.COO 

2 39 

ALPHA OOT 

0.00 

.233930 

.139789 

— .1C7595 

O.COOuOU 

0. 300030 

o.cpcloo 

0.030 

C.003 

r.coc 

233 

BETA 

8.30 

-.017738 

-.006993 

.OC9693 

-.191909 

-.085999 

.037189 

-33,283 

— 339F.889 

1332.811 

233 

CELTA H PRIME 

'3.00 

.099585 

.022735 

-.022025 

O.COOCOO 

C.OCOOC'O 

0.00OPC0 

0.060 

C.C03 

c.ccc 

237 

DELTA SPOILER STM 

0.00 

.003 750 

.000317 

-.0C0369 

O.COOOOC 

0.000000 

0.000000 

0.000 

C.COO 

C.COO 

203 

DELTA SPOILER A/S 

o.oc 

.030277 

.300195 

-.000168 

0.000000 

0.000000 

0.000000 

0.030 

0.030 

C.CCO 

239 

RjLL VELOCITY P 

0.00 

-.002979 

-.002088 

•0C2313 

o.eiiotwc 

3 .3303OQ 

o.ctoecc 

C.36C 

uo:j 

0.CC3 

213 

PITCH VELOCITY 0 

0.30 

.552160 

.259971 

-.297065 

O.COOCOO 

o.ecooco 

0*000000 

O.OCO 

0.000 

c.ccc 


wLN* 3 

TOTAL 

LOADS 

31 

SURFACE 

-.278066 -.105926 

.08.6300 

-65.225 

-6905.168 

3093.755 

WLN* 9 

total 

LOADS 

ON 

SURFACE WITHOUT ALPHA*0 TERM 

-.191909 -.055999 

.037189 

-33.283 

-3396.889 

1302.611 


kIGHT HANG 


NSEO 

AERODYNAMIC EFFECT 

VALUE 

CV PER 

CB PER 

CT PER 

CV 

CB 

CT 

V KIPS 

8 IN-KTPS 

T IN-UPS 

231 

ALPHA - 0 

1.00 

-.136162 

-.099982 

.051116 

-.136182 

-.099982 

.051116 

-31.991 

-3006.289 

179C.999 

202 

ALPHA 

0.30 

.392237 

.018923 

-.019927 

O.COOCOO 

0.000000 

O.COOOOO 

O.OOC 

C.000 

C-.CCO 

203 

DELTA H 

0.00 

.060513 

.027107 

-.027833 

0 .OOuoOO 

0.300-30(1 

0.000003 

C.COO 

c.ccc 

C-.COO 

2 J9 

ALPHA OOT 

0.00 

.233930 

.109789 

-.1C7595 

O.COOCOO 

O.CGCOOO 

0.000003 

C.OCO 

0.000 

C.CCO 

235 

BETA 

8.00 

.017738 

.006993 

-.009698 

.191909 

.055999 

-.037189 

33.283 

3396.889 

-1332.811 

20b 

DELTA H PRIME 

0.00 

-.099585 

-.022735 

.022025 

O.COOCOO 

0.000000 

0.000000 

0.000 

C-.C30 

C-.COO 

207 

DELTA SPOILER SYH 

0.00 

-.000750 

-.000317 

.0C6369 

O.COOOOC 

O.OCOQCO 

o.roocco 

c-.coc 

C.OCO 

O.CCC 

233 

DELTA SPOILER A/S 

3.00 

-.000277 

-.000195 

.000168 

O.COOCOO 

0.000000 

O.COOOOO 

C»Lv( 

C .0< 0 

C .OfcC 

239 

ROLL VELOCITY P 

3.30 

.032979 

.002388 

-.002313 

O.COOCOO 

0 .003000 

0.003300 

c.ccc 

C.COO 

C.CCO 

210 

PITCH VELOCITY Q 

*) • 0\i 

.552160 

.259971 

-.297065 

0.000000 

0.000000 

O.COOCOO 

0.300 

C.COO 

O.CCC 


hLN- 3 

TOTAL 

LOADS 

ON 

SURFACE 


.005722 

.006962 .013932 

1.392 

392.600 

988.139 

WLN* 4 

TOTAL 

LOADS 

ON 

SURFACE W1THCU. 

ALPHA*0 TERM 

.191909 

.355999 -.C37189 

33.283 

3398.689 

-1302.811 


<43 

Ol 


WIND 


TUNNEL OPTION 


CASE 1 

81 

ASS 

W0P-2D RIGID 

WIND TUNNEL DATA 

M-l.20 

WS-67.5 

9-29-80 

ALPHA* 0,0000 

BETA* 8.OC0O 

Q8AS* 962.32 


P» 

0,0 

0- '9.0 R- 0 

.0 DSL* 0,0 DSR* 

0,0 

DRU* O.OC 

DRL » 0,00 

0E» 0.0000 

DA* 0.0000 

TAS*1245.3C 

*TN* 3 

VERT 

TAIL - 

SG SREF* 

247.403 BREF* 

206.70 

CREF* 

188.95 





NSE 3 

AERODYNAMIC 

EFFECT 

VALUE 

CV PER 

CB PER 

CT PER 

CV 

C8 

CT 

V KIPS 

B IN-KIPS 

T IN-KJFS 

301 

3tTA ALP HA *0 

136, So 

8. DC 

-.034464 

-.010927 

.003146 

-.275872 

-.067416 

.025168 

-67.944 

-4392.483 

1155. 7C3 

302 

3tT A ALPHA 

136.56 

0.00 

-.001115 

-.000354 

.000102 

0.000000 

0.000900 

0.000000 

0.090 

L « C 60 

O.CCO 

303 

DELTA H PRIME 

130.36 

0.00 

-.003032 

— .UC08G0 

.DC0464 

0.000000 

3.0(0000 

Q.C^OCOO 

0.000 

C a L DC 

C . C v" D 

304 

DELTA SPOILER 

136,56 

0,00 

-.000270 

-.000089 

.000023 

0.000000 

o.acoooo 

0.CC3CC0 

O.OC 5 

0.90D 

O.CCO 

305 

DELTA KUO UP 

130.56 

0.00 

.009663 

.002854 

-.003830 

0.000000 

0.000000 

O.COCCOO 

O.CCO 

0.000 

( .coo 

306 

DELTA RUD LOW 

136.56 

0.00 

0.000000 

0.000000 

0.009000 

a.cooooc 

0.020009 

O.OC'MCCO 

C.000 

O.OC 5 

c.ccc 

307 

ROLL VELOC P 

136.60 

o.oc 

-.003995 

-.001461 

.0(0756 

o.ooocoe 

o.occooo 

0.000000 

0.000 

C.000 

O.CCO 

3 J8 

YaW VELOC R 

136.56 

0.00 

.032297 

.010244 

-.003596 

9.000000 

0.0(0000 

c.ooocoo 

n.oco 

C.033 

O.CCO 

hLH* 5 

TOTAL LOADS ON 

SURFACE 




-.275872 

-.087416 

.025168 

-67.044 

-4392.483 

1155. 708 

»TN* 4 

VERT TAIL ROOT 

SREF* 247 

.400 

BREF* 206 

.76 CREF* 188.95 







NS El 

AERODYNAMIC 

EFFECT 

VALUE 

CV PER 

CB PER 

CT PER 

CV 

CB 

CT 

V KIPS 

8 IN-KIPS 

T IN-KIPS 

401 

BETA AIPHA*Q 

WL 

75 

8.00 

-.053487 

-.023324 

.010230 

-.427696 

-.186592 

,081840 

-103.990 

-9375.684 

3756.073 

402 

BETA ALPHA 

WL 

75 

0.00 

-.001730 

-.000755 

.000331 

0.000000 

0.000090 

o.cc-o c or. 

C.OOC 

< .303 

0 . C 33 

463 

DELTA H PRIME 

WL 

75 

0.09 

-.002363 

-.001621 

,0(1072 

9 .0000 DC 

O.OCGCOC 

0.0(0309 

e.oco 

C.COC 

o.coo 

414 

DELTA SPOILER 

WL 

75 

0.90 

-.000349 

-.000177 

. 000079 

0.000000 

O.OC 0390 

O.OOOGCO 

O.OiO 

0,230 

c.cco 

435 

DELTA RUO UP 

WL 

75 

O.DG 

.309675 

.905734 

-.906210 

0.030000 

9,900000 

0.000000 

0.000 

C.000 

O.CCO 

406 

DELTA RUD LuW 

WL 

75 

0.00 

,303876 

,000352 

-.001119 

3.000000 

9.000000 

0.000000 

0.000 

C.000 

c.cco 

407 

ROLL VEL3C P 

WL 

75 

0 o DO 

-.303703 

-.002645 

, .002065 

0.000000 

O.OCOOOC 

o.ococoo 

e.coc 

f .309 

C o C C 0 

408 

YAW VELOC R 

WL 

75 

O.Jw 

. 547390 

.922154 

-.013933 

U.C9000Q 

9.9OO000 

O.OCOOOO 

0.030 

C.000 

O.COO 

WLN* 

6 TOTAL LOADS 

, ON 

SURFACE 




-.427896 

-.186592 

.061640 

-1C3.990 

-9375.684 

3756.073 


KINO TUNNEl OPTION 


CASE 

i 

3i aps wop-ao 

RIGID WIND 

TUNNEL DATA N-1.20 WS*67.5 9-79-80 ALPHA- C.COOO 

BETA- 

8. COO 0 03 AP 

» 962.32 



P • 0.3 3* 3*0 

R- 3.0 

OSL- 0.0 

DSR« 0.0 D«U* 

0.00 DRt > 0,00 

DE- 0.0000 

DA- 

0.0000 TAS 

*1245.10 

WTN- 

5 

FwO FUS SG 

SREF- 1946 

.300 

8REF- 820.08 CREF- 184.05 





VERTICAL 










NSEO 


AERODYNAMIC EFFECT 

VALUE 

CV PER 

CB PER CT PER 

cv ca 

CT 

V KIPS 

8 IN-KIPS 

T IN-KIPS 

5)1 


ALPHA. 3 (VEPTICAL) 

1.00 

.003170 

-.000622 0.000000 

.003170 -.000822 

O.OCOfCO 

6.063 

-J 288.617 

0.003 

502 


ALPHA (VERTICAL) 

0.00 

.001880 

.003605 C.3C0000 

0.000000 0.000000 

O.POOCCO 

0.000 

0,000 

o.cco 

wLN* 

7 

TOTAL LOADS ON 

SURFACE 



.003170 -.000822 

0.000000 

6.060 

-1288.617 

O.COG 

LATERAL 










NSS'J 


ALROOYNAMIC EFFECT 

VALUE 

CV PER 

C8 PER CT PER 

CV CB 

CT 

V KIPS 

8 IN-KIPS 

T IN-KIPS 

503 


ROLL VEL.P (LATERAL) 

0.00 

,0Sj140 

.000040 . 000020 

0.000000 0,000000 

0,000(00 

0.000 

C.300 

O.CCC 

534 


BETA (LATERAL) 

8.00 

-.305710 

-.031660 -.000990 

-.045680 -.013280 

-.007920 

-E7.322 

-20618.533 

-2786. 4£o 

WIN* 

8 

TOTAL LOADS ON 

SURFACE 



-.045680 -.013280 

-.007920 

-87.322 

-20818.533 

-2786.486 


MO 

00 


WIND 


TUNNEL OPT ION 


CASE 1 

31 APS 

VDP-23 R 

1GID VINO 

TUNNEL DATA M.1.20 WS*67. 

5 9-29-80 ALPHA” 0.0000 

BETA* 

8.0000 QBAR« 962.32 


P» 0. 

0 3” 3.0 

R« 0.0 

DSL- 0.0 

DSR” 0.0 DRU» 0. 

DC DRL* 

0.00 

DE» 0 .0000 

DA° 

O.COOC TAS”124? .10 

WIN* 6 

AFT FUS S6 

SREF” 1946 

.000 

3»EF* 620.08 C*EF» 

164.05 

XHT” 

244.50 THT- 

10.75 

XVT-198.96 7VT« 41 .CD 

VERTICAL 











NS £3 

AEkUOTNAII 

C EFFECT 

VALUE 

CV PER 

CB PER CT PER 

CV 

C8 

CT 

V KIPS 

B TN-K.IPS T IN-KIPS 

.631 

Ai.PHA-0 (VERTICAL) 

1.00 

.005300 

.032173 O.OCOOCO 

.005300 

.0C2173 

O.OOCCOO 

10.131 

3406.526 0 .COO 

632 

ALPHA (VERTICAL) 

0.00 

-.000460 

-.000118 0.000000 0 

.000000 

G .930000 

c.ococoo 

0.030 

0 . L 0 3 C.OOC 

WIN- 9 

TOTAL 

LOADS ON 

SURFACE 



.005300 

.002173 

0.000000 

10.131 

3406.526 O.CCO 


TAIL 

INDUCED LOADS 

V FACTOR 

3 FACTOR T FACTOR 







LHT V 

-65.225 

KJPS 

1.00 

244.50 

.034121 

-.010173 


-65.225 

-15947. 43X 


RHT V 

1.342 

KIPS 

1.00 

244.50 

.000702 

.00C209 

- 

1.342 

326.140 


l HI T 

3393.755 

IN— KIPS 

- 

-1.00 

- 

-.001973 

- 

- 

-3093.755 


RHT T 

483.134 

IN-KIPS 

- 

-1.1-3 

- 

-.000311 

- 

- 

-488.134 

«LN« 10 

total 

TAIL LOADS 

ADDING 

TO AFT 

FUSEUGF. 

.033418 

-.012248 

- 

-63.883 

-19201.179 

RLN” U 

TOTAL 

LOADS ON 

AFT FUSELAGE - 

VERTICAL 

.028118 

-.010075 

- 

-53.751 

-15794.653 


LATERAL 


NS E Q 

AERODYNAMIC EFFECT 

VALUE 

CV PER 

CB PER 

CT PER 

CV 

CB 

CT 

V KIPS 

B TN-KIPS 

T IN-KIPS 

603 

SETA 

ALPHA-0 C/OCLAT) 

8.0C 

-.032110 

-.000300 

-.000370 

-.016880 

-.002400 

-.002960 

-32.268 

-3762.395 

-1041.414 

604 

BETA 

ALPHA 

C/0 (LAT) 

3.00 

-.000070 

-.003010 

-.0000 10 

0.000000 

o.ooooco 

0.000000 

0.000 

C.300 

O.CCO 

6 J5 

DELTA H PRIDE (LAT) 

0.00 

.■000220 

.000060 

.000040 

0 .030(00 

J.OOO'K-o 

0.00(010 

6.(30 

(.000 

0.000 

oGo 

DELTA RUDDER LOWER(L) 

3. DC 

•030390 

.000010 

.003020 

3.300000 

0.030000 

0.000(30 

e.ccc 

0.000 

e.cco 

607 

ROLL 

VELOCfTV P (LAT) 

0.00 

.300440 

.000X10 

.000080 

0.000000 

M. 000000 

o.Pcor-co 

0.000 

C.COD 

c.ccc 

638 

BETA 

(LATERAL) 

a. ac 

-.001660 

-.030340 

-.000290 

-.013440 

-.002720 

-.002320 

-25,692 

-4264,037 

-816.243 

<ILN” 12 


TOTAL 

LOADS ON 

SURFACE 




-.030320 

-.305120 

-.005280 

-57.960 

-8026.422 

-1657.657 



TAIL 

induced loads 

V FACTOR 

8 FACTOR 

T FACTOR 









VTR V 

—1 D3.99C 

KIPS 

H 

• 

© 

O 

198.06 

41.00 

-.054400 

-.013138 

-.012138 

-103.990 

-23596.228 

-4253.563 



VTR 6 

-9375.684 

IN-KIPS 

- 

- 

1.00 

- 

- 

-.026649 

- 


-9375.884 



VTR T 

3758.073 

IN-KIPS 

- 

-1.00 

- 

- 

-.002397 

- 

- 

-3758.073 

- 



LHT V 

-65.225 

KIPS 

- 

- 

10.75 

- 

- 

-.001993 

- 

- 

-701 .1 65 



RHT V 

1.342 

KIPS 

- 

- 

-10.75 

- 

- 

-,C« 0041 

- 

- 

-14,427 



LHT 8 

—64-55.168 

IN-KIRS 

- 

- 

1.00 

- 

— 

-.018205 

- 

- 

-6405.165 



RHT 3 

332. 6u0 

IN-KIPS 

“ 

. — 

-1 .03 

- 

- 

-.001116 

- 

- 

-392.600 

NLN- 13 


TOTAL 

TAIL LuAUS 

AODING 

TO AFT 1 

FUSELAGE 


-.054400 

-.015535 

-.060X22 

-103.990 

-24354,301 

-21152.628 

KLN- 14 


TOTAL 

LOADS ON 

AFT FUSELAGE - 

LATERAL 


-.084720 

-.020655 

-.065402 

-161.949 

-32380.723 

-23010.485 



SUMNARY 

CASE 1 
HR-ASYK 


PRINT OPTION 

61 ** S SDSS -^.2.1D 67.5WS,1.2M, 20K ALT,RI6ID,ALPHA.O,OE.0,BETA-8 


alpha- c.lo beta- 


«LN- L WING " SG AXIS 


IIC- 3 SC- OPE 


SREF- 1946.000 


BREF- 820.06 CREF- 


wEFT SIDE PRESSURE INTEGRATED LOADS 

CASE V 9 T 

KIPS IN-KIPS IN-KIPS 

CV 

COEFFICIENTS 

CB CT 

1 44.660 11075.619 

-623.834 

.023363 

.007065 -.001773 

RIGHT SIDE LOADS FOR ASYMNETR IC 

CASES 



1 54.508 12003. 2J0 

-994.208 

.028515 

.007657 -.002826 


WIND TUNNEL DERIVED LOADS 


V 

KIPS 

48.992 


B 


T 

IN-KIPS 


IN-KIPS 
13242.029 -1172.646 


CV 

.025629 


8.00 OFAP- 982,3 
TAS -1245,1 


184.05 

COEFFICIENTS 

C 6 CT 

.008447 — .CC3353 


72.207 17430. 81B 


2011.406 


C37773 


.011119 — .005717 


o 

o 


summary 

CASE 1 
HR-ASYK 


print cation 

B1 ARS SDSS-3C.2.10 67.5WS»1.2M, 20K AIT, RIGID, ALPHA-O, De-O, BETA-8 


ALPHA- 0 , 1)0 BETA- 8.90 


C2AP- <362.3 
TAS -1245.1 


SAN- 2 HORI2 TAIL - SG 
WLN- 3 


ITC- 3 SC- OFF 


SREF- 238.770 BREF- 259.03 CREF- 1A9.3F 


LEFT SIDE PRESSURE INTEGRATES LOADS COEFFICIENTS 


CASE 

V 

KIPS 

3 

IN— K IPS 

T 

JN-KIPS 

CV 

CB 

CT 

1 

-16.554 

-1973.236 

-802.605 

-.070579 

-.032479 

-.C22908 


WIND TUNNEL DERIVED LOADS 

V B T 

KIPS JN— K IPS IN-KIPS 

-65,225 —6405 .168 3093.755 


COEFFICIENTS 
CV CB CT 

-.276066 -.105*26 .066360 


fclGNT SIDE LOADS FOR ASYMMETRIC CASES 
i -6.222 -929.980 2267.415 -.026527 -.015307 .064715 


1.342 392.600 488.134 .005722 .006462 .013932 


SUNNARV PRINT OPTION 

n^ASri fll ARS S0SS-3C.2.1D 67.5WS,1.2«» 20K ALT, 


RIGID, ALPHA*D,DE*0,8ETA*8 


ALPHA* 0.00 BETA* 8.00 C B 4P« 982 3 

TAS »I2A5.I 


§ F*D PUS SG LAT 


ITC- 2 SC* ON 


KIPS 


-29.343 -7736.332 


SREF* 1946.000 8R£F* 


620.08 


CcNTE 3 \lNE PRESSURE INTEGRATED LOADS 
CASE V 3 T 

IN— KIPS IN-KIPS 


CV 


COEFFICIENTS 

CB 


WIND TUNNEL DERIVED l DADS 


CT 


V 

KIPS 


0.000 -.015350 -.004935 Ci.COOOOO -87.322 -206ie.5 


B T 

IN-KIPS IN-KIPS 


CPEF* 164.05 


COEFFICIENTS 
CV CB CT 


33 -2786.486 -.0456EC -.013280 


-.CC7920 


I—* 

o 

ro 


SUrtrtART punt OPTION 

Su»ASYN 6i ASS SOSS-JC.i.lD 67.5WS,1.2M, 20K ALT.RXGID, At PHA-O, OE -0, BET A®8 


ALPHA® 0.00 BETA® 8.0C C°4R® QE2.3 

TAS -1245.1 


iAN« 3 VERT TAIL - SG 
® IN® 5 


ITC* 3 SO ON 


SPEF* 247.400 BREF® 206.76 


CR£F® 166. Si 


CENTERLINE 

CASE 


PRESSURE INTEGRATED LOADS 


V 

KIPS 


-76.454 


iN-KIPS 

-4990,3.17 


T 

IN-KIPS 

1308.142 


COEFFICIENTS 
CV C8 CT 

-.314595 -.099324 .026468 


HIND TUNNEL DERIVED LOADS 

V 6 T 

KIPS IN-KIPS IN-KIPS 

—67 « OSS -4392.483 1155. 7Cb 


COEFFICIENTS 
CV C6 CT 

— .275B72 -.C87416 ,025166 



SUMMARY PRINT OPTION 


CASE 1 81 ARS SDSS-1C.2.1D 6?.5WS#1.2N» 20K ALT, RI GID» AL PHA-O, DE-O, BETA *8 

MR.ASYN 


ALPHA. 0.00 BETA- 8.00 C8AR- 982.3 

TaS *1245.1 


SAN- 31 VT ROOT TOTAL 
kLN* 6 


ITC- A SC* ON 


SREF* 247.400 BREF* 206.76 CREF- 188.95 


CENTER iNE PRESSURE INTEGRATED LOADS 

CASE VST 

KIPS IN-KIPS IN-KIPS 


COEFFICIENTS 


VINO TUNNEL DERIVED LOADS 


IN-KIPS IN-KIPS 


COEFFICIENTS 


-107.452 -10631,869 4201.147 -.442144 -.211589 .C91489 -lC3.99.j -9375.884 3756.073 -.427896 -.186592 .C61640 



o 

-p=» 


suHiuar 

CASE A 
HR*ASYN 


PRINT OPTION 

SX ARS SDSS-3C.2.1D 67.5 k'S» 1 .2N. 20K ALT. RIGID. ALPHA*3»OE*Oj>BETA«8 


ALPHA” 0.00 BETA* 8.00 


OSAR* 962.3 
US "1295.1 


SAN* 33 AFT FUS SG L-TOT 
WIN* 19 


ITC* 9 SC* ON 


S»£F* 1996.000 BREF* 820. OB CREF* 


169.05 


CENTERLINE PRESSURE INTEGRATED LOADS 

CASE V 3 T 

KIPS IN-KIPS IN-KIPS 

1 -119.709 -26023.175 -16191.728 


COEFFICIENTS 

CV C8 CT 

/ 

-.062623 -.016600 -.096022 


WIND 

TUNNEL DERIVED LOATS 


COEFFICIENTS 

v 

B T 

CV 

ce 

KIPS 

IN-KIPS IN— KIPS 

161.999 

-32380.723 -23010.965 

—.069720 

-.020655 - 



SIMOALO, 61/07/02.DFRC N3S CNOSiO) 


10.53.24. B1FS2»T100. 

10 » 50 . 24 «UCCR, AAOl, 0.566KCDS. 

10.50.24. U3Ek(SIMS, t 
10.50»24 »LHaRGE(14,62,FTN) 

10. 50.25. ATTACH! LGO.FS LI P3) 
lu.53.25.0EfiNE<TA?E2G«31&3?/CT*SPRlV> 
lG.5o.25.0tFl'!c!TAPE4u.BH3P2/CI*SPRlV) 
10.5i.2!>.LCSET(?R2SLT*Z6R0) 

10.50.2t>.MAP!QFF) 

10.50.2o.LG0. 

10.53.29. CM LRAaA »lu3154B, LOADER USED 12330QB 

10.53. 42. STOP 

10.50.42. 114100 MAXIMUM EXECUTION FL. 

10.50.42. 5.493 CP SECONDS EXECUTION TIME. 


10.50.43. UEaD, 
10. 5u.4i.UcPF, 
lo. 50. 43. OEMS, 

10.50.43. UECP, 

10.50.43. AESR, 
10.51. 37. UCLP, 


0.UJ2KUNS. 

0.C29K JNS. 
3.294KUNS. 
7«27cSECS. 
11.913UNTS. 

AA04, 1.918KLNS. 


8.3 Integration Option With Minimum I/O 


In this final example, the geometry f i 1 e '-and pressure data files already 
exist (GOP = 1 and POP = 2) so the card input is at a minimum. Output is mini- 
mized by executing I0P = 2 for symmetric flight cases where the aircraft is 
trimmed at 4 different load factors. Output for the vertical tail and lateral 
fuselage stations is suppressed with CARD 2A. The wind tunnel option is not 
executed. The only printed output is generated by the summary print option for 
the wing, horizontal tail, and vertical fuselage stations. 
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Card input listing for example 


C«n 

NT 


1 

9 

3 

4 

5 

6 
7 
3 

1? 

1? 

13 

14 

15 


TT T 2 ?** 1 fJ *' Z RQP 0 SOP 0 IOP 2 jj GI> 0 

Si Si h T 9 G ~ s§ axis 1 integrate sthhetric 


TT 

01 

02 

05 

ll 

1- 

1 

2 

3 

4 



OTAL 


04 

It 

14 


14 
7 / 3/0 
4.3 


1255.0 
-2.1fc 
-3.00 
-4.75 
- 6.66 

END Of RECORD 

CASES 


(VERT1 

, rs fHISIl 

SONrtnRY PKIRT TERHIKATQR 

Df 

Ot 

DE 

CE 


O 


Program output listing for example 8.3 

»-* i.NTc iSAl luls OPTION and ADDITIONAL LOADS OPTION 

O 

CO 

CASt 1 Cuf.PLtTE 
Cas; i CCnPlETE 
CAS' iOtPLeU 

CASE A CGNPLETE 





SUMMARY 

F K i ,, T 

0? HON 




case i 

MR* SYM 

Pi 

AFS 

-» 0 S S — 3 E • 2 • 7 A 

67.5WS* 1.20M, 18K 

ALT* FLAS1 IC.316K 

GW,NZ*C.fc5 

CaSc 2 

r?« sy.m 

b 1 

A< J 

sfcss-it .a . 28 

67.5WS»1.20M>ieK 

ALT,tLASTJC,3i6K 

6W*N7-1 ,C 

C »SE 3 

syk 

B 1 

APS 

60SS-3t.2.2C 

67.5wS*1.2vM«18X 

ALT,ELAS1IC>316K 

GW*NZ*1.685 

CASE 3 
NR* SYM 

61 

*► 6 

6tS$-3E.2,20 

67.5WS,1.20M,18K 

ALT»ELASTIC,31fcK 

GR,NZ«2.936 

SaN* I 

»1NG 

- SG 

AXIS 

ITC* 3 SC- 

OFF 

SREF* 1986. 


LEFT 

SIOE p ki 

SSUPE IN It 

GkAIEU LOADS 

CASE 

V 

3 

| 


KIPS 

IN-KiPS 

IN-KIPS 

1 

• 576 

6 6 05* 018 

—683.997 

2 

57.732 

12192.315 

-356.559 

3 

93.551 

1BA29. 751 

7.635 

9 

5.26.512 

26357. 33j 

5.6 .362 



COEFFICIENTS 


C V 

ca 

CT 

.020013 

.065189 - 

.601799 

,027796 

.007129 - 

.601199 

,093598 

.011111 

. C06020 

.660912 

.015375 

.001351 


RIGHT SIDE lOADS * LEFT SIDE 


(SYMMETRIC MOTION FOR ALL CASES) 


AtFHA. .£8 

Dt» -?.lfc 

BETA® 

o.u. 

CFAP-1C67.3 
IAS *1255.0 

ALPHA* l.PA 
OF* -2.60 

B FT A® 

o.co 

CE»R*lCfc7.3 
7 A S -1255. C 

ALPHA- 3.93 
OE* -9.75 

BETA® 

0.00 

CPif*lC5?.3 
TAS *1255.0 

ALPHA* 6.2C 
OE* — t > 6 E 

BETA® 

C.00 

C°AF *1C*7.2 
US *1255.0 


9REF« 820.66 CREF* 169,05 


CAS: i 

MR. SYM 

bl 

ARS 

SDSS-3l *2 ,2A 

67.5WS, i.2uM,18K 

AU>EiAsncm&K 

GW,NZ*0,65 

ALPHA* 

Cfc* 

. f A 
-2.1fr 

BETA* 

0.00 

CEAR*1C67.3 
IAS *1255.0 

case 2 

MR » SYM 

ei 

ARS 

SCSS-3E.2.2B 

67.5RS,i.20M,18K 

ALT,ELA$TIC,316K 

GW,NZ»X.C 

ALPHA* 

CE* 

1.86 
-3. CO 

BETA* 

0.00 

C BAR *1067.3 
TAS *1255.0 

CASE 3 
MR* SYrt 

81 

ARS 

SDSS-3:.2.2C 

67.5WS,1.20.M,18K 

ALT, ELASTIC, 316K 

GW,NZ*1,685 

ALPHA* 

CE* 

3. 93 
—A. 75 

6ETA. 

0.00 

CBAP *lCt7.3 
TAS *1255.0 

CASE A 
MR* SYM 

31 

AR S 

SDSS — 3t 4 2« 20 

67.5wS,1,2jM,18K 

ALT, ELASTIC, 316K 

GW,NZ*2.636 

ALPHA* 
DE ” 

t .20 

-t.te 

BETA. 

C.00 

GBAP *1067 .3 
TAS *1255.0 

SAN* 2 

hiiki 2 

UU 

- S6 

ire- 3 SC' 

* OFF 

SRtF* 238. 77C 

BREF* 259 

.03 ' 

CREF* 

169. 

38 


LEFT 

SIDE PRIS 

SURE 1NT2 

ORATED LOADS 


COEFFICIENTS 


CASE 

V 

6 

T 

CV 

C8 

CT 


KIPS 

IN-KIPS 

IN-KIPS 




1 

-29.737 

-3079.206 

A3&3.3o9 

-.11.6689 

-.066667 

.035813 

2 

-32.266 

-3276. 7 9E 

1385, t'il 

-.126605 

-.069610 

. C 36 628 

3 

-37.605 

-3713. E27 

1655, 7C8 

-.168369 

-.056291 

.C3S260 

6 

-66.091 

-6222,117 

1562.576 

-.173015 

-.063961 

.060522 


RIGHT SlOt LOADS 


LEFT HUi {SYMMETRIC MOTION FOR >Ll CASES) 


SUMMARY 

PRINT 

OPTION 




CASE l 
NR* SY' 

3. 

4l*i 

SCSS-aE.2.2a 

67.6AS.1.2JM.16K 

ALT.ELASTIC.316K 

GK,NZ*0.fc5 

CASE 2 
NR* SYR 

cl 

AKS 

SCSS-3E.2.2B 

&7.6WS.1.2JM.1BK 

ALT, ELASTIC, 31 6K 

GM,NZ*J.O 

CASE 3 
MR* SYM 

61 

nRS 

SDSS-IE.2.2C 

67.6 MS jx. 2 J.M, 18K 

ALT. ELASTIC. 316K 

6M,NZ«1 . 66 ! 

CASE 4 
NR* SYk 

61 

ARS 

SDSS-3E.2.20 

67 .6 WS j 1.2 jMj 18K 

ALT, ELASTIC, 356K 

GW.NZ-2.436 


ALPHA* 

Of* 

.64 

-2.16 

P ?7 A* 

0.00 

C B A P * 1 C 6 7 « 3 
IAS *L2t;.j 

ALPHA* 

CE* 

1.66 

- 2 .T 0 

53TA* 

C . 0 0 

Cf AF*I0t7.3 
tap *i 2 ::.o 

ALPHA* 

PE* 

3.93 

-4.75 

BETA* 

C .00 

0PjR*U67.3 
TAS *121 t.C 

ALPHA- 

’ CL * 

6.20 

- 6.66 

PET A* 

C.30 

CPaR*1067.3 
ias *i 2 :s. u 


5AN* 5 F.O FoS SS VtST 

CENTEPlISE PRESSURE INTEGRATE!) LOAOS 


CASE 

V 

9 

7 


KIPS 

IN-KIPS 

IN-KIPS 

1 

it . i23 

—.633. 734 

0.000 

2 

22.223 

- 6 o;.>. 019 

0.06 0 

3 

30.33? 

1523.796 

o.tou 

4 

34,602 

3794.594 

U.O 0 C 


HC« 1 SC* ON SREF* 1946.050 



COEFFICIENTS 

cv 

CB 

CT 

,006726 

-.000936 

o.ccoooo 

>010700 

-.0CQ329 

0 . C'00000 

014763 

. 0CO89J 

0. COCO 30 

019C67 

.002228 

o.coooco 


3REF- 620. Pt CREF* 164.0' 
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CO C*->E i 

fl»* SYH 

b; 

ATS 

SDSS-SE.c.Ec 

67.3WS.1.20H.18K 

ALT. ELASTIC. 316K 

GW,NZ®C.<5 

ALPHA. 

or = 

.FA 

-2.16 

BETA. 

G.OC 

CEAP.itt7.3 
TAS -12LE.C 

CASE 2 
KR« SY- 

Ol 

ATS 

SDS3-3t .2.23 

67.iWS.t.2UM. 18K 

alt. elastic. 3 i6K 

GO»NZ®l.D 

ALPHA. 

DE- 

1 a S6 

-S.t-C 

9 E T A « 

r.c-5 

CPtt«K t7.3 

tas 

CASE 2 
r.K» SY-M 

si 

AFS 

aDSS— 3r .2.2C 

67.5WS. 1.20M. i 8K 

ALT. ELASTIC. 216K 

GW,NZ»J .685 

ALPHA- 
Dt * 

-A. 75 

PETA® 

C.c-o 

C? A P ®1C 67 . 3 

us ®: 2 j;.c 

CASE A 
ftp.® SYn 

si 

ATS 

SDSS-3E.2.2D 

67.5kS»i.2JM»18K 

ALT, ELASTIC. 316K 

GW.N7-2.A36 

ALPHA. 

CE- 

6.20 

—6.66 

PET A® 

C . -0 

C6A6-3C67.3 
T AS ®I255.0 

SAN® 7 

.FT 

FUS SG 

ViRT 

ITC- 1 SC 

■ ON 

S®£F“ 1SA6.C0C 

8RrF® 626 

©C 6 

CPEF- 

IfcA 

t. 
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CASE 

V 

K IrS 

IN-KIPS 

T 

IN-KIPS 

CV 

ce 

CT 

1 

l o v 66 

-1727.227 

0.000 

.000513 

—.001002 

O.COCOOO 

2 


— 2 A A5 « 3 JX 

U.OCu 

-.C0026A 

— • 0 J * A 36 

Cj.COOOOO 

3 

-3o6C3 

-39A7.376 

0 oCiL .» 

— .U0163L 

-. >02318 


A 

-7e 

— 5 5S2.97A 

O.OCO 

-.003335 

-.00328A 

CsCuCOOO 



summary 

PRIM 

OPTION 


, 


CASt 1 
MK® sym 

61 

t R5 

3D-.S — 3S.2.2A 

67.5WS.1.20M. 1PK 

ALTiFLASTICi3i6K 

GW,NZ*C.fc5 

CASE 2 
HR* SYK 

ai 

ARS 

SDSS-3L .2.23 

67.5WSil. 20M. 18K 

ALTiCLASTICi31fcK 

GW,NZ-l.C 

CASE 3 
NR* SY.N 

B1 

ARS 

SCSS-36.2.20 

67.6WSil.20M,18K 

ALT,ELASTICi316K 

G»iMZ*l.t8£ 

CASE 4 
NR* SY.n 

61 

ARS 

SCSS— 3E.2.20 

67.5WSi1.21M,13K 

AIT,ELAST1Ci316K 

GW. N. -2.436 

SaN* 32 

Afl EOS SO 

V-T01 

ITC* 4 SC* 

ON 

SREF* 1946, 


CENTERLINE 

cash 


Y 

KIPS 


PRiSSUPH iMTcGRAltu LOADS 
1 


i 


cv 


COEFFICIENTS 

CB CT 


-Sf.A ut -1 6975. .30 

il.i.17 -HOGS. 637 
-25345. 9/o 
-3.i238.6iC 


-79.413 

- 45.534 


IN-KIPS 

■>#000 -.026122 -.011140 0.000000 

0.JC0 -.031333 -.012327 0.000000 

3.000 -.033235 -.014881 O.tOCfiiiO 

O.dOO -.045492 -.017753 0.000000 


ALPHA* . 8< 

C E ® —2.16 

BETA® 

** « OC 

C?AE»lCc7.3 
TAS ®1 ZES.o 

ALPHA* 3. (if 

OL* —3.00 

BETA® 

C .00 

C?aP»2 C 67.3 
T/5 »1 E5* .c 

ALPHA* 3.93 
DE« -4.75 

f>ETA® 

0.90 

C?£F«lCt7.3 
TAS «125 5 .0 

ALPHA- t • 20 
01* -t ,66 

BETA® 

a. on 

C = iF®K67.3 
TAS •12!*, p 


BRFF® 


f 20. fit 


CRtF- 


164.05 


SIiQAZfc. tl/c?/t?,UF*C H3S (N0S10) 


15. 2 j* 5v « siFS^iTU 5. 

15. 5v« iv .ICCK.* AAOl* J«0^6KC&S« 

( « 1 ?t S # ) 

i5.5;/«51 «ChAK6Mi*»*c2/rT ; 'i) 
15.5:}.51.AU«C*tUSO»FSLlP3) 
l3.5v.tl *AJTACh(TA?c2u*BlG0P) 
15**iC.52.*TTFCH<n;>iU*a3£22A) 
iS.S-o.S ? • a IT aCH ( 7 A?c 1 2»a 3E -2 6 ) 

.S.5v 2.A1UCH<1 APci3*3:-!t22C) 

i5*J^*p3©A7lMC^(TAt't:l^ = ’J3.i22i>) 
13.5j.5a.lI'SzT(??EScT*Zc»\G) 

* 5 • 3 J . 3*4 ©PA Fluff J 
15..5 j.54.L(>3. 

C H tWAfl «it515<tt* LOAOtR U5c0 i233t*CB 

X5.51.cw. STu? 

l3.5i.2t. iln4wC MAX’] JUT- EXECUTION FL. 

15*31.20. 3.602 CP SCw^OS EXECUTION TIKE. 

i3 « 5 j. • 4 1 » Uc AO * 0 « % C 2 K '0*> $ . 

15.31.21. UEPf* ;‘.053Ku»\S. 

15. si .21 .t£K5* 2.43 iKo.nS© 

15.51.21. UtCP* 5.4iiaSC$. 
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73/74 0PT=1 


FTN 4.2+75060 07/29/81 16.31.26. 


FLEX STAB LOADS INTEGRATION PROGRAM 

6 PRIMARY OPTIONS APE...(1) REPUNCH PRESSURE DATA WITH NEW X/C 

(2) SECTION DATA 

(3) INTEGRATED SURFACE/AXIS LOADS 

(4) WIND TUNNEL DERIVED AIRLOADS 

TAPE11 IS DISK COPY OF PUNCHED CP CARDS/ CASE 1 

TAPE12 IS DISK COPY OF PUNCHED CP CARDS/ CASE 2 

TAPE13 IS DISK COPY OF PUNCHED CP CARDS, CASE 3 

TAPE14 IS DISK COPY OF PUNCHED CP CARDS, CASE 4 

TAPE15 IS DISK COPY OF PUNCHED CP CARDS, CASE 5 

TAPE16 IS DISK COPY OF PUNCHED CP CARDS, CASE 6 

TAPE17 IS DISK COPY OF PUNCHED CP CARDS, CASE 7 

TAPE18 IS DISK COPY OF PUNCHED CP CARDS, CASE 8 * 

TAPE19 IS DISK COPY OF PUNCHED CP CARDS, CASE 9 

TAPE20 IS DISK INPUT OF SURFACE/AXIS DATA 
TAPE30 IS GDTAPE DISK INPUT 

TAPE40 IS DISK INPUT OF WIND TUNNEL COEFFICIENT DATA 
TAPE50 IS TEMPORARY SCRATCH DISK 

PROGRAM FLIP (INPUT=65, 0UTPUT=1 29, PUNCH-65, TAPE1.1 =51 3, TAPE1 2=51 3, 

1 TAPE1 3=513, TAP El 4=51 3, TAP El 5=5 1 3, TAPE1 6=51 3, TAP El 7=51 3, 

2 TAPE1 8=51 3,TAPE1 9=51 3,TAPE20=51 3,TAPE30=51 3,TAPE40=51 3, 

3 TAPE50=513,TAPE1=INPUT) 

>' INTEGER SPI(51),SPW(51 ) 

1 LOGICAL WGR (50) ,WGS (50) ,WGI (50) , WGW (1 4) ,RS 

INTEGER GOP,POP,ROP,SOP,IOP,WOP,AC(2,2),NC,NSB,LRVL(4),SCN(2) 
INTEGER LRC(3),VBT(3) 

REAL RD(20,9),FAL(9,50,6),FCL (9,50,6) ,WAL (9,14,6) ,WCL(9,14,6) 

INTEGER NSAD,N,SANAMEC4,50) , SABODY (2,50) , BTC (50), SC (50) ,NR 

INTEGER RN,NP,PN(2),NALD,NT,CN.CL,CT 

REAL SREF (50) ,BREF (50) ,CREF (50) ,CAVG, ETA, YL, CROW 

REAL SP,BARM,TARM,XCN,C(3) 

LOGICAL SB * 

INTEGER DN, DUMMY (4),T1 tl (18,9) ,TIT2(18) ,INTB,IMR(9) ,CPB0DY(2) 
INTEGER INAF,INPT,MRN(2) 

REAL NTB,MR,M1 (9) , A1 (9) ,B1 (9) ,(Jl (9) ,NAF, THETA, YR,NPT 
REAL XC CPS CPR CPL XR 

cokmon/genc6m/g6p^pop,rop,sop,iop,hop / hgr,wgs,hgi,kgh,ac,nc,nsb, 

1 RD,LRVL,FAL,FCL,WAL,WCL,SCN,IC,LRC,,VBT,RS 

COMMON/GOPCOM/NSAD,N,SANAHE,SABODY,BTC,SC,NR,SREF,BP' • ,CREF,CAVG, 
1 RN,ETA,YL,NP,CROH,PN,SP,BARM,TARM,XCN,NALD,Nl,CN,CL,CT,C 

C 0 MM 0 N/P 0 PC 0 M/DN,DUMMY,TIT 1 ,nT 2 ,FF~,MR / M 1 ,A 1 ,B 1 , 81 ,INTB,IMR, 

1 CPBODY,NAF,THETA,INAF,YR,NPT,INPT,XC,CPS,CPR,CPL,XR,MRN,SB 

DATA FCL/2700*0.0/,FAL/2700*0.0/ 

DATA WCL/0756*0.0/,WAL/0756*0.0/ 

DATA SREF/50*1.0/,BREF/50*1.0/,CREF/50*1.0/ 

DATA 8TC/50*9/,SC/50*C/ 1 

DATA SANAHE/2001 ’ ")/,SABODY/100(" ")/ r 

DATA LRVL/"LEFT HAND 'V'RIGHT HAND", "VERTICAL "/’LATERAL "/ 
DATA SCN/"OFF"," ON'7 
DATA LRC/"LH","RH","CL'7,VBT/"V","B"/ f T"/ 

DATA MRN/" SYM" / "ASYM"/ 

DATA RD/180*0.0/ 

DATA WGR/50*. TRUE. /,WGS/50*. TRUE. /,WGI/5a*.TRUE./,WGU/1A*. TRUE./ 
NC= 0 
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400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 


c 

650 


C 

660 


C 

670 


C 

700 


7000 

7001 

1 

7011 

7012 

7013 
7019 

C 

710 


720 

50 


20 


800 


1 

8000 

C 


CUT PANEL 

SP= STCD+STCMSTCS) 

IFCSP.EQ.O.O) oP=1 .0 

BARM= (YTC1)*$T(1>+YTC2)*ST(2)+YTC3)*ST(3))/SP 

TARM=-CXT(1)*ST(1HXT(2)*ST(2)+XTC3)*ST(3))/SP 

GO TO 700 

INBOARD PANEL 

SP= 0.0 

BARM= 0.0 

TARM= 0.0 

GO TO 700 

OUTBOARD PANEL 

SP= AP(J) 

BARM= YAC5/J) 

TARM=“XA (5,J) 

PRINT 1 PANEL DATA PLUS ANY MESSAGE 
PRINT 3600. PN,SP,8ARM,TARM 
IFCJJ.EQ.05 GO TO 710 

IFCJJ.GE.90) PRINT 7000 

IFCJJ.GE.91) PRINT 7001 

IFCJJ.EQ.91) PRINT 7011 

IFCJJ.EQ.92) PRINT 7012 

IFCJJ.EQ.93) PRINT 7013 

IFCJJ.EQ.99) PRINT 7019, NV 

FORMAT (*+*,T61 ,*CUT PANEL*) 

FORMAT (*+*,T71,19H***** WARNING *****, 

* ERROR DETECTED IN GEOMETRY -*) 

FORMAT (*+*,T1 21 ,*TRI ANGLE 1*) 

FORMAT (*+*,T1 21, *TRIANGLE 2*) 

FORMAT (*+*,T1 21, *TRIANGLE 3*) 

FORMAT (*+*,T1 19, 13,* VERTICES*) 

WRITE, PUNCH PANEL DATA 

WRITE C20) PN,SP,BARM,TARM,XCN 

IFCG0P.NE.4) GO TO 720 

PUNCH 3601, PN,SP,BARM,TARH 

TA= TA+SP 

GO TO NEXT PANE*. 

CONTINUE 

PRINT TOTAL AREA OUTBOARD OF AXIS 
PRINT 3700, TA 

THIN BODY COMPLETED - GO TO NEXT SURFACE/AXIS DEFINITION 
CONTINUE 


READ,WRITE,PRINT,PUNCH ANY ADDITIONAL LOAD DEFINITIONS 

IF(NALD.LE.O) GO TO 999 
DO 80 1=1 ,NALD 

READ(1,8000) N, (SANAME(L.N) ,L=1 ,4), 

BTC(N),SC(N5,NT,SREF(N),BREF(N),CREFCN) 

FORMATU2,2X,4A4,10X,2I3,I4,3F10.3) 

CHECK FOR INPUT ERROR 
IFCN.LT.1 .0R.N.GT.50) GO TO 991 
BTCCN)= 4 

IF(SCCN) .NE.O) SC(N)= 1 
JJ= SC(N) + 1 
IFCNT.LE.O) GO TO 991 
IFCSREFCN) .EQ.O.O) SREFCN)= 1.0 
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5 


10 


15 


20 


25 


30 


35 


v 

' 

40 


45 


50 


55 


SUBROUTINE IOPSR 
C 

C INTEGRATES PANEL PRESSURES TO OBTAIN SURFACE/AXIS LOADS 
C AND COMPUTES ANY LOADS DERIVED FROM INTEGRATED LOADS 

C 

REAL CPC2),PL(6) 

LOGICAL WGR (50) ,WGS (50) ,WGI (50) ,WGW (1 4) ,RS 

INTEGER G0P,P0P,R0P,S0P,I0P,W0P,AC(2,2),NC,NSB,LRVM4),SCN(2) 

INTEGER LRC(3),VBT(3) 

REAL RD(20,9) ,FAL (9,50,6), FCL (9,50, 6), UAL(9,1 4,6), WCL (9,1 4,6) 

INTEGER NSAD,N,SANAHE(4,50) ,SABODY (2,50) ,BTC (50) ,SC (50) ,NR 

INTEGER RN,NP/PN(2),NALD,NT,CN,CL,CT 

REAL SREF (50) ,BREF (50) , CREF (50) , CAVG, ETA, YL, CROW 

REAL SP,BARM,TARM,XCN,C(3) 

LOGICAL SB 

INTEGER DN, DUMMY (4) ,TIT1 (18,9) ,TIT2 (1 8) ,INTB,IMR (9) , CPBODY (2) 
INTEGER INAF,INPT,MRN(2) 

REAL NTB,MR,M1 (9),A1 (9) ,81 (9) ,31 (9) ,NAF/THETA,YR,NPT 
REAL XC CPS CPR CPL XR 

COMMON/GENc6m/g6p,p6p,ROP,SOP,10P,WOP,WGR,WGS,WGI,WGW,AC,NC,NSB, 

1 RD,LRVL/FAL/FCL,WAL,UCL/SCN,IC,LRC/VBT/RS 

C0KM0N/G0PC0M/NS4D,N,SANAME,SAB0DY,BTC,SC,NR,SREF,BREF,CREF,CAVG, 
1 RN,ETA, YL,NP,CROW,PN,SP,BARM,TARM,XCN,NALD,NT, CN, CL, CT, C 

C0MM0N/P0PC0M/ DN, DUMMY ,TIT1 ,TIT2,NTB,MR,M1 ,A1 ,B1 ,Q1 ,INTB,IMR, 

1 CPBODY,NAF,THETA,INAF,YR/NPT/INPT,XC/CPS,CPR,CPL/XR,MRN,SB 

DO 10 IC=1,NC 
REWIND 20 
DN= IC+10 

READ (20) NSAD,NALD 

DO 20 1=1 ,NSAD 

CALL SYNC (3), RETURNS (20,500) 

C NORMAL RETURN FOR CPBODY MATCHED WITH SA30DY 
C RETURNS 20 FOR SABODY SKIPPED 

C RETURNS 500 FOR MATCH NOT FOUND 
C SUPPRESS ALL PRINTED DETAIL OUTPUT IF I0P=2 
lFdOP.EQ.2) GO TO 200 
PRINT 1000 

1000 FORMAT (*1*/* INTEGRATION OPTION*) 

C PRINT CASE INFO HEADER 

CALL CHEAD 

C PRINT SURFACE/AXIS GEOMETRY INFO 

JJ= SC(N)+1 

IF(SC(N).NE.O) JJ= 2 

PRINT 1020, N, (SANAME(L,N) ,L=1,4),CP r iODY,BTC(N) ,SCN(J J) 
IF(BTC(N).EQ.3) PRINT 1021, THETA 
PRINT 1022, SREF (N),BREF(N), CREF (N) 

1020 FORMAT ( //* SAN= *.I2,2X,4A4,4X,*CPB0DY=*,2A4,3X,*ITC=*,I‘l ,JX, 

1 *SC=*,A3) 

1 021 FORMAT (*+*,T66,*THETA=*, F7 . 2) 

1022 FORMAT(*+*,T88,*SREF=*,F10.3,3X,-- BREF=*,F8.2,3X,*CREF=*,F8.2) 

IF(SC(N) .EQ.O) PRINT 1030 

IF(SC(N).NE.O) PRINT 1031 


1030 FORMAT (*0*, -PANEL 

AREA 

BARM 

TARM 

*, 5X, 

1 

*t°-L 

VH_ 

B-L 

T-L 

*,10X, 

2 

*CP-R 

V-R 

B-R 

T-R 

*/* 


* 

IN2 

IN 


5X. 

+ * 

KIPS 

IN-KIPS 

'HCIPS*,10X 
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60 


65 


70 


75 


80 


85 


.90 

95 


100 


105 


110 


C 

C READ OPTION CONTROL,SURFACE/AXIS SKIP CONTROL/ 

C 

READC1 /I 000) GOP/POP/ROP/SOP/IOP/WOP 

1000 FORMAT ( 6(9X,I1) ) 

IF(IQP.NE.O) READ Cl ,1001) WGI 

* IFCWOP.NE.OJ READC1/1001) WGW 

1001 FORMAT C 50L1 ) 

C 

C READ CASE SUMMARY PRINT SPECS 
C 

DO 5 1=1,51 

READC1/1003) SPI(I)/SPW(I) 

1003 F0RMATCI2/3X/I2) 

IF(SPICI) .EQ.O) GO TO 100 
5 CONTINUE 
100 NSP- 1-1 
C 

C IF SURFACE/AXIS INFO NOT ON DISK, CREATE FROM CARDS OR GDTAPE 
C ' 

IFCG0P.GE.2) CAtL GOPSR 

C TERMINATE IF ERROR IN GEOMETRY OPTION OR IF NO OTHER OPTION REQ. 
IFCG0P.EQ.9) GO TO 999 
IF (POP. EQ.O. A. WOP. EQ.O) GO TO 999 

C 

C IF WIND TUNNEL COEFFICIENTS NOT ON DISK, COPY FROM CARD INPUT 
C 

IFCW0P.EQ.2) CALL WOPSR 
C 

C READ RUN DATA FOR ALL CASES 
C 

200 READC1/2000) I/J,RDCJ/I) 

2000 FORMAT (II /3X/I2/3X/ FI 0.0)' 

IFCE0FC1) .NE.O.O) GO TO 300 
IFCI.GE.9) GO TO 200 
DO 10 K=I/8 
10 RDCJ/K+1)= RDCJ/I) 

GO TO 200 

300 READC1/3000) NC/NSB 
3000 « : 0RMATCI1/27X/I2) 

C 

C KuAD PRESSURE DATA IF ON CARDS (INCLUDING SLENDER BODIES IF ANY) 
C 

IF(POP.EQ.I) CALL POPSR 
C 

C ALL DATA INPUT COMPLETE - PROCEED WITH ROP/SOP,IOP/WOP 
C 

IFCIOP.NE.O) CALL IOPSR 
IFCWOP.NE.O.AND.NC.NE.O) CALL WOPSR 
C SUMMARY PRINT OPTION 

500 IFCNSP.EQ.O) GO TO 999 

IF (IDF*. EQ.O) GO TO 999 

C COMPRESS VERTICAL SPACING TO 8 LINES/INCH 
PRINT 5000 
5000 FORMAT (*T*) 

C PROCESS EACH SUMMARY PRINT SPECIFICATION 

DO 50 I=1,NSP 
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460 

465 

470 

475 

480 

485 

490 

495 

500 

505 

510 


IFCBREFCN) .Ed. 0.0) BRFFIN)*1.0- 

IFCCREFCN) .Ed. 0.0) CREF(N)= 1.0 
WRITE C20) N,(SANAME(L.N),L=1,4), " 

1 BTC (N) ,SC (N) ,NT, SREF (N) ,BREF(N) ,CREF (N) 

IFCG0P.EQ.2) GO TO 850 

PRINT 8200, N,(SANAME(L,N),L=1,4), 

1 BTC(N), SREF(N),BREF(N),CREF(N) 

PRINT 8201, SCN(JJ),NT 

8200 FORMAT (*1*/1X,*ADDITI0NAL LOADS OPTION*///* SURFACE/ AXIS NUMBER s* 

1 ,I3,6X,*SURFACE/AXIS NAME = *,4A4///* INTEGRATION TYPE CODE =* 

2 ,I3,4X,*SREF =*,F10.3,4X,*BREF =*,F10.3,4X,*CREF =*,F10.3/) 

8201 FORMAT (* SYMMETRY CODE = *,A3,7X,*NUMBER OF TERMS =*,I3//// 

1 ' * COMPONENT DEFINITION FOR *) 

IF(SCCN).EQ.O) PRINT 8202 

IFCSC(N).EQ.I) PRINT 8203 

8202 FORMAT (*+*,T30,*LEFT SIDE LOAD *) 

8203 F0RMAT(*+*,T30,*CENTERLINE LOAD*) 

PRINT 8300 

8300 FORMATC///* TERM INDICES COMPONENT DESCRIPTION *, 

1 *V FACTOR B FACTOR T FACTOR*/) 

IFCGOP.Ed.3) GO TO 850 

PUNCH 8000, N,(SANAME(L,N),L=1,4), 

1 BTC (N) ,SC (N) , NT, SREF (N) ,BREF CN) , CREF CN) 

C PROCESS EACH COMPONENT SPECIFICATION 

850 DO 85 J=1,NT 

READt1,8500) CN,CL.CT,C 

8500 FORMAT CI2,2I4,3F10.3) 

C CHECX FOR INPUT ERROR 

IF(CN.EQ.O) GO TO 855 
IF(CN.LT.1 .0R.CN.GT.50) GO TO 991 

IFCCL.LT.1 .0R.CL.GT.3) GO TO 991 

IF(CT.LT.1.0R.CT.GT.3) GO TO 991 

855 WRITE C20) CN,CL,CT,C 

IF (GOP. Ed. 2) GO TO 85 

IFU.EQ.041 .0R.J.EQ.081 .OR. J .EQ.121) GO TO 860 
IF(J .EQ.161 .OR.J .EQ.201 .OR.J . EQ.241) GO TO 860 

‘ GO TO 870 

C NEW PAGE WITH HEADER 

860 PRINT 3500 

PRINT 8300 

C SPECIAL CASE IF CN=0 (CONSTANT) 

870 IF(CN.GE.I) GO TO 875 

PRINT 8700, J,CN,CL,CT,C 

8700 FORMAT (* *,I3,5X,3I3,6X,*C0NSTANTS *,14X,3F10.3) 

GO TO 880 

875 PRINT 8750, J,CN,CL,CT,(SANAME(L,CN),L=1 ,4),LRC(CL),VBT(CT),C 

8750 FORMAT (* *,I3,5X,3I3,6X,4A4,3X,A2,2X,A1,2X,3F10.3) 

880 IF (GOP. EQ. 3) GO TO 85 

PUNCH 8500, CN,CL,CT,C 
85 CONTINUE 
80 CONTINUE 
GO TO 999 
C 

C PRINT ERROR MESSAGES 
C 

990 PRINT 9900 
GO TO 998 
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5 * KIPS IN-KIPS IN-KIPS*) 

1031 FORMAT C*0*,*PANEL AREA BARM TARM *, 5X, 

60 1 *CP-R V-R B-R T-R */* *, 

2 * IN2 IN IN *, 5X, 

3 * KIPS IN-KIPS IN-KIPS*) 

LU= 17 

C PROCESS ROW DATA 

65 200 DO 30 J=1,NR 

READC20) RN, ETA, YL,NP, CROW 

READCDN) YR/NPT 

IFCI0P.EQ.2) GO TO 300 

C CHECK FOR NEW PAGE / PRINT HEADER 

70 IFCCLU+NP+1) .LE.66) GO TO 250 

PRINT 1000 

PRINT 2000/ N,CSANAMECL,N),L=1,4) 

2000 FORMAT C*0*,*SAN= */l2,2X/4A4) 

IF(SCCN).EQ.O) PRINT 1030 
75 IF(SCCN).NE.O) PRINT 1031 

LU= 13 

250 LU- LU+NP+1 
PRINT 2500 
2500 FORMAT (* *) 

80 C PROCESS PANEL DATA 

300 DO 40 K-1 /NP 

READ(20) PN,SP,BARM, TARM,. XCN 

READCDN) XC/CPS/CPR/CPL/XP 

C SET UP PRESSURES FOR CURRENT BODY TYPE 

85 GO TO C31 0,320/330) BTCCN) 

C SLENDER BODY - VERTICAL 
310 CPC1)= CPS 
CPC2)= CPS 
,• GO TO 400 

90 * C SLENDER BODY - LATERAL 

32C CPC1) = CPI. 

CPC2)= CPU 
GO TO 400 
C THIN BODY 

95 330 IFCMR.EQ.1 .0) CPC1)= CPS 

IFCMR.EQ. } .0) CPC2)= CPS 

IFCMR.EQ. 2.0) CPC1)- CPL 

IFCMR.EQ.2c0) CPC2)= CPR 

C SPECIAL CONVENTION FOR VERTICAL TAIL ON CENTERLINE 
100 IFCMR. EQ. 2. 0. AND. SCCN).NE.O. AND. THETA. EQ. 90.0) CPC2)= CPL 

C COMPUTE PANEL LOADS 

400 PL(1)= CPC1)*Q1CIC)*SP/144.0 
PLC4)= CPC2)*Q1CIC)*SP/144.0 
PLC2) = PLC1)*BARM 
105 PLC5)= PLC4)*BARM 

PLC3)- PL(1)*TARM 
PLC6)= PLC4)*TARM 
C RUNNING TOTAL 

DO 35 L=1,6 

110 35 FALCIC,N/L)= FALCIC/N/L) + PLCL) 

IFCI0P.EQ.2) GO TO 40 

IFCSCCN) .EQ.O) PRINT 4000, PN,SP,BARM,TARM,CPC1),CPLCL),L=1,3), 
1 CPC2), CPLCL) ,L=4,6) 

IFCSCCN). NE.O) PRINT 4001, PN, SP, BARM, TARM, CPC 2), CPLCL) ,L=4,6) 
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SYMBOLIC REFERENCE HA:' CR=3) 


ENTRY POINTS 

DEF LINE 

REFERENCES 








1 

CilEAD 

1 

46 









VARIABLES 

SN TYPE 

RELOCATION 








252 

AC 

INTEGER 

ARRAY 

GENC 'M » 

REFS 

6 

14 





304 

A1 

REAL 

ARRAY 

POPCG?, 

REFS 

12 

16 

19 




315 

B1 

REAL 

ARRAY 

POPCOM 

REFS 

12 

16 

19 




351 

CPBODY 

INTEGER 

ARRAY 

POPCOM 

REFS 

10 

16 





364 

CPL 

REAL 


POPCOM 

REFS 

13 

16 





363 

CPR 

REAL 


POPCOM 

REFS 

13 

16 





362 

CPS 

REAL 


POPCOM 

REFS 

13 

16 





0 

DN 

INTEGER 


POPCOM 

RfFS 

10 

16 





1 

DOWY 

INTEGER 

ARRAY 

POPCOM 

RR5 

10 

16 • 





550 

FAL 

REAL 

ARRAY 

GENCOM 

refV 

8 

14 





5764 

FCL 

REAL 

ARRAY 

GENCOM 

REFS\ 

8 

14 





0 

GOP 

INTEGER 


GENCOM 

REFS > 


14 





16152 

IC 

INTEGER 


GENCCM 

REFS 

\ 14 

18 

5*19 

2*24 

2*25 

2*26 






2*28 

\*29 

2*30 

2*31 

2*32 

2*33 

2*34 

340 

IMR 

INTEGER 

AltRAY 

POPCOM 

REFS 

NC*, 

. 16 

18 




3 55 

INAF 

INTEGER 


POPCOM 

REFS 

11^ 

\. 16 





360 

INPT 

INTEGER 


POPCOM 

r <EFS 

11 

V 16 





337 

INT8 

INTEGER 


POPCOM 

REFS 

10 

Ni 





4 

I OP 

INTEGER 


GENCOM 

REFS 

6 

i* 





321 

JJ 

INTEGER 



REFS 

20 

DE r iNED 

18 




322 

L 

INTEGER 



REFS 

19 

DEFINED 

19 




16153 

LRC 

INTEGER 

ARRAY 

GENCOM 

REFS 

7 

14 





544 

LRVL 

INTEGER 

ARRAY 

GENCOM 

REFS 

6 

14 





272 

MR 

REAL 


POPCOM 

• REFS 

12 

16 





366 

MRN 

INTEGER 

ARRAY 

POPCOM 

REFS 

11 

16 

20 




273 

Ml 

REAL 

ARRAY 

POPCOM 

REFS 

12 

16 





353 

NAF 

REAL 


POPCOM 

REFS 

12 

16 





256 

NC 

INTEGER 


, GENCOM 

REFS 

6 

14 





357 

NPT 

REAL 


POPCOM 

REFS 

12 

16 





257 

NSB 

INTEGER 


GENCOM 

REFS 

6 

14 





271 

NTB 

REAL 


POPCOM 

REFS 

12 

16 





1 

POP 

INTEGER 


GENCOM 

REFS 

6 

14 





326 

Q1 

REAL 

ARRAY 

POPCOM 

REFS 

12 

16 

19 




260 

RD 

REAL 

ARRAY 

GENCOM 

REFS 

8 

14 

2*24 

2*25 

2*26 

2*27 






2*29 

2*30 

2*31 

2*32 , 

2*33 

2*34 


2 

ROP 

INTEGER 


GENCOM 

REFS 

6 

14 





16161 

RS 

LOGICAL 


GENCOM 

REFS 

5 

14 





370 

SB 

LOGICAL 


POPCOM 

REFS 

9 

16 





16150 

SCN 

INTEGER 

ARRAY 

GENCOM 

REFS 

6 

14 





3 

SOP 

INTEGER 


GENCOM 

REFS 

6 

14 





354 

THETA 

REAL 


POPCOM 

REFS 

12 

16 





5 

TIT1 

INTEGER 

ARRAY 

POPCOM 

REFS 

10 

16 

19 




247 

TIT2 

INTEGER 

AflRAY 

POPCOM 

REFS 

10 

16 





16156 

VBT 

INTEGER 

ARRAY 

GENCOM 

REFS • 

7 

14 





13200 

WAL 

REAL 

ARRAY 

GENCOM 

REFS 

8 

14 

V 




14564 

WCL 

REAL 

ARRAY 

GENCOM 

REFS 

8 

14 





152 

WGI 

LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

14 





6 

WGR 

LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

14 





70 

WGS 

LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

14 





234 

WGW 

LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

14 





5 

WOP 

INTEGER 


GENCCM 

REFS 

6 

14 
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SET INTEGRATION LOAD INDEX 
N= SPICI) 

IF(.NOT.WGICN)) GO TO 50 

SET WINDTUNNEL LOAD INDEX IF DEFINED 

M= SPWCI) 

IFCM.EQ.O) GO TO 520 

IFCWOP.EQ.O) GO TO 510 

IFCWGWCM)) GO TO 520 

WINDTUNNEL LOAD OUTPUT SUPPRESSED 
i M- 0 ft 

INIALIZE INDEX FOR LEFT SIDE LOAD 
I RS= .FALSE. 

LR= 0 

PRINT 5200 

| FORMAT C*1 */* SUMMARY PRINT OPTION*) 

PRINT CASE DATA 
DO 54 IC=1,NC 
CALL CHEAD 

PRINT SURFACE/AXIS DATA 
JJ= SCCN)+1 - • - 

PRINT 5400, N, CSANAME(L,N)^L“1 ,4) ,BTC CN) ,SCNCJ J) , 

1 SREF CN) ,BREF CN) ,CREF CN) 

FORMATC/////* SAN=*,I3,3X,4A4,14X,*IK=*,I2,4X,*SC= *,A3,13X, 

1 , *SREF=*,F10.3,5X,*BREF=* / ! ; 10.2,5X,*CREF=*,F10.2/) 

IFCM.NE.O) PRINT 5401, M 
FORMAT C*+*,*WLN=*,I3/) 

PRINT HEADER INFO 

I F CSC CN) . EQ.O. AND. .NOT.RS) PRINT 5500 ' . 

I F CSC CN> .EQ.1) PRINT 5501 

PRINT 5502 

IFCM.NE.O) PRINT 5503 

FORMAT (*-*,*LEFT SIDE *) 

FORMAT C*-*,*C ENTERLINE*) 

F0RMATC*+*,T17,*PRESSURE INTEGRATED L0ADS*,11X,*C0EFFICIENTS*) 
FORMAT C-v+*,T80,*WIND TUNNEL DERIVED L0ADS*,14X,*C0EFFICIENTS*) 
PRINT 5510 

IFCM.NE.O) PRINT 5511 
PRINT 5520 

IFCM.NE.O) PRINT 5521 

i FORMAT C*0*,*CASE V B T*, 


i FORMAT C*0*,*CASE V B T*, 

1 * CV C8 CT*) 

FORMAT C*+*,T80, *V B T*, 

1 * CV CB CT*) 

FORMATC* *,* KIPS IN-KIPS IN-KIPS*) 

FORMAT C*+»,T79, *KIPS IN-KIPS IN-KIPS*) 

RIGHT SIDE RECYCLE ENTRY POINT 
RESET INDEX FOR RIGHT SIDE OR CENTERLINE LOAD 
' IFCRS.0R.SCCN).EQ„1) LR= 3 
PRINT V,B,T,CV,CB,CT FOR EACH CASE 
DO 57 IC=1,NC 

SKIP -RIGHT SIDE LOADS IF SYMMETRIC MOTION 
IFCRS. AND. IMRCIC). EQ.1) GO TO 57 

PRINT 5700, IC,CFALCIC,N,K+LR),K=1,3),CFCLCIC,N,K+LR),K=1,3) 
PRINT WINDTUNNEL LOADS IF DEFINED 
IFCM.EQ.O) GO TO 57 

PRINT 5701, CWALCIC,M,K+LR),K=1,3),CWCLUC,M,K+LR),K=1,3) 
F0RMATC*O*,I2,2X,-3P,3F12.3,0P,3F10.6) 



/ 
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991 PRINT 9910 

515 GO TO 998 

992 PRINT 9920 

9900 FORMAT (///*• EOF ENCOUNTERED ON GDTAPE - PROGRAM TERMINATED*) 
9910 FORMAT (///* CARD INPUT ERROR DETECTED - PROGRAM TERMINATED*) 
9920 FORMAT (///* GDTAPE TRAILER RECORD ENCOUNTERED - *, 

520 1 *CAN NOT FIND REQUESTED BODY - PROGRAM TERMINATED*) 

998 GOP= 9 

999 REWIND 20 
RETURN 
END 


'TJ 



I 



fUASA DFRC 


"115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 


SUBROUTINE I0PSR 73/74 0PT=1 FTN 4.2+75060 07/29/81 


4000 FORMAT !* *,I2,1X,I2,2X,3F10.2,F12.4, 3!-3PF12.3),2X,OP, 

1 FI 2. 4, 31-3PF12.3)) 

4001 FORMAT!* *,I2,1X,I2,2X,3F10. 2,F12.4, 31-3PF12.3)) 

40 CONTINUE ' 

30 CONTINUE 

C TOTAL LOADS, LOADS PER QBAR, AND COEFFICIENTS 
IFU0P.EQ.2) GO TO 450 
C CHECK FOR NEW PAGE 

IFULU+7) .LE.66) GO TO 430 
PRINT 1000 

PRINT 2000, N,!SANAME1L,N),L=1,4) 

IFCSC(N).EQ.O) PRINT 4100 

IF(SCCN).NE.O) PRINT 4101 

4100 FORMAT !*+*,T59*V-L B-L T-L *, 

1 T109*V-R B-R T-R */ 

2 T59*KIPS IN-KIPS IN-KIPS*, 

3 Tl09*KIPS IN-KIPS IN-KIPS*) 

4101 FORMAT !*+*,T59*V-R B-R T-R */ 

1 T59*KIPS IN-KIPS IN-KIPS*) 

430 DO 45 L=1,6 

45 FCL(IC,N,L) = FAL!IC,N,L)/!91!IC>> "v>‘ 

IFCSC1N) .EQ.O) PRINT 4300, IFAHIC,N,L),L=1,6>,!FCL1IC,N,L>,L=1,6> 
IFCSC1N) .NE.O) PRINT 4301, !FAL1IC,N,L) ,L=4,6>, !FCL1IC,N,L) ,L=4,6) 

4300 FORMAT!// /T22,*T0TAL INTEGRATED L0ADS*,T51,-3P,3F12.3,14X,3F12.3 

1 //T22,*TOTAL LOADS PER QBAR *,T51,3F12.6,14X,3F12.6) 

4301 FORMAT !///T22,*TOTAL INTEGRATED L0A0S*,T51,-3P,3F12.3 

1 //T22,*T0TAL LOADS PER QBAR *,T51, 3F12.6) 

450 FCL!IC,N,1 ) = FALIIC,N,1) / !Q1 !IC)*SREF1N)) 

FCL!IC,N,4) = FAL!IC,N,4) / !Q1 !IC)*SREF!N)) 

FCLtIC,N,2) = FAL!IC,N,2) / !Q1 !IC)*SREF!N)*BREF IN)) 

FCL!IC,N,5) = FAL1IC,N,5) / 191 1IC)*SREF!N)*BREF!N)) 

FCL1IC,N,3) = FAL1IC,N,3) / !91 UC)*SRET!N)*CREF!N)) 

FCL!IC,N,6) = FAL!IC,N,6) / 191 !IC)*SREFl N)*CREF !N>) 

IF HOP. E9. 2) GO TO 20 

IF1SC1N) .EQ.O) PRINT 4500, !FCL1IC,N,L),L=1,6) 

IF !SC1N) .NE.O) PRINT 4501, 1FCL(IC,N,L),L=4,6) 

4500 FORMAT! / T22,*T0TAL LOAD C0EFFICIENTS*,T51,3F12.6,T101,3F12.6) 

4501 FORMAT! / T22,*T0TAL LOAD COEFFICIENTS*, T51,3F12. 6) 

GO TO 20 

500 PRINT 1000 

PRINT 5000, 1SAB0DY !L,N) ,L=1 ,2) ,N, 1SANAME !L,N) ,L=1 ,4) 

5000 FORMAT!////, 10X,*CAN NOT FIND CPBODT NAMED *,2A4,5X,*F0R SAN= *, 
1 I2,5X,4A4) 

C READY FOR NEXT SURFACE/AXIS DEFINITION 
20 CONTINUE 

C ADDITIONAL LOADS OPTION 
IF1NALD.E9.0) GO TO 800 
DO 60 I=1,NALD 
REWIND 50 

C READ NEXT ADDITIONAL LOAD DEFINITION 

READI20) N, !$ANAME1L,N) ,L=1 ,4) , BTC IN) ,SC!N>, 

1 NT,SREF!N),BREF1N),CREF!N) 

C READ AND STORE COMPONENT TERMS 
DO 62 J=1,NT 
READI20) CN,CL,CT, C 
62 WRITE150) CN,CL,CT,C 
C CHECK FOR LOAD TO BE SKIPPED 


16.31.44. 
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VARIABLES 

SN TYPE 

RELOCATION 


361 

xc 

REAL 


POPCOM 

REFS 

365 

XR 

, REAL 


PuPCOM 

REFS 

356 

YR 

REAL 


POPCOM 

REFS 

FILE NAMES 

MODE 





OUTPUT 

FMT 


WRITES 

19 





30 

31 

STATEMENT LABELS 

DEF LINE 

REFERENCES 

155 

1001 

FMT 

21 

19 


166 

1002 

FMT 

23 

20 


245 

1003 

FMT 

35 

24 


251 

1004 

FMT 

36 

25 


255 

1005 

FMT 

37 

26 


261 

1006 

FMT 

38 

27 


265 

1007 

FMT 

39 

28 


271 

1008 

FMT 

40 

29 


275 

1009 

FMT 

41 

30 


305 

1010 

FMT 

43 

32 


311 

1011 

FMT 

44 

33 


315 

1012 

FMT 

45 

34 


301 

1013 

FMT 

42 

31 



COMMON BLOCKS LENGTH 
GENCOM 7282 


POPCOM 249 


MEMBERS - BIAS NAME (LENGTH) 


0 

GOP 

(1) 

3 

SOP 

(1) 

6 

WGR 

(50) 

156 

WGW 

(14) 

175 

NSB 

(1) 

360 

FAL 

(2700) 

6516 

WCL 

(756) 

7275 

LRC 

(3) 

0 

DN 

(1) 

167 

TIT2 

(18) 

187 

Ml 

(9) 

214 

Q1 

(9) 

233 

CPBODY 

(2) 

23/ 

INAF 

(1) 

240 

INPT 

(1) 

243 

CPR 

(D 

246 

MRN 

(2) 


STATISTICS 

PROGRAM LENGTH 323B 211 
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13 

16 


13 

16 


12 

16 


20 

24 

25 

32 

33 

34 


1 POP 

(1)‘ 

2 ROP 

(1) 

4 IOP 

(1) 

5 WOP 

(1) 

56 WCS 

(50) 

106 WGI 

(50) 

170 AC 

(4) 

174 NC 

(1) 

176 RD 

(180) 

356 LRVL 

(4) 

3060 FCL 

(2700) 

5760 WAL 

(756) 

7272 SCN 

(2) 

7274 IC 

(1) 

7278 VBT 

(3) 

7281 RS 

(1) 

1 DUMMY 

(4) 

5 TIT1 

(162) 

185 NTB 

(1) 

186 MR 

(1) 

196 A1 

(9) 

205 Bl 

(9) 

223 INTB 

(1) 

- 224 IMR 

(9) 

235 NAF 

(1) 

236 THETA 

(1) 

238 YR 

(1) 

239 NPT 

(1) 

241 XC 

(1) 

242 CPS 

(1) 

244 CPL 

(1) 

245 XR 

(1) 

248 SB 

(1) 
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175 
180 
185 
190 
195 f 


5701 FORMAT (*+*,T72 ,-3P,3F12.3,0P,3F10.6> 

57 CONTINUE 

C CHECK FOR RIGHT SIDE LOAD RECYCLE 
IFCRS.OR.SC (N) .EQ.1) GO TO 50 
C TEST FOR SYMMETRIC MOTION - ALL CASES 
DO 58 IC=1/NC 

IF(IMRCIC) .NE.1 ) GO TO 580 

58 CONTINUE 
GO TO 590 

C RECYCLE FOR RIGHT SIDE - ASYMMETRIC CASES ONLY 
580 RS- .TRUE. 

PRINT 5800 

5800 FORMATC///* RIGHT SIDE LOADS FOR ASYMMETRIC CASES*) 
.GO TO 560 

C MESSAGE FOR ALL CASES SYMMETRIC 

590 PRINT 5900 

5900 FORMATC///* RIGHT SIDE LOADS = LEFT SIDE *, 

1 ASYMMETRIC MOTION FOR ALL CASES)*) 

C READY FOR NEXT SUMMARY PRINT DEFINITION 
50 CONTINUE 

C RETURN TO 6 LINES/INCH 

PRINT 5001 
5001 FORMAT C*S*) 

999 STOP 
END 
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SYMBOLIC REFERENCE MAP (R=3) 

ENTRY POINTS DEF LINE REFERENCES 
1 60PSR 1 -523 


VARIABLES 

SN TYPE 

RELOCATION 



252 

AC 

INTEGER 

ARRAY 

GENCOM 

REFS 

13 

15106 

AP 

REAL 

ARRAY 


REFS 

1b 

3612 

AR 

REAL 



‘ REFS 

254 

3613 

AY 

REAL 



REFS 

255 

1062 

BARM' 

REAL 


GOPCOM 

REFS 

19 






432 

434 






413 


705 

BREF 

REAL 

ARRAY 

GOPCOM 

REFS 

18 






265 

268 






DEFINED 

35 

456 

BTC 

INTEGER 

ARRAY 

GOPCOM 

REFS 

16 






121 

130 






268 

459 






452 


1072 

C 

REAL 

ARRAY 

GOPCOM 

REFS 

19 






DEFINED 

482 

1051 

CAVG 

REAL 


. GOPCOM 

REFS 

18 






DEFINED 

24 

15416 

CB 

REAL 

ARRAY 


REFS 

10 

361 6 
1070 

CID 

INTEGER 

ARRAY 


REFS 

5 

CL 

INTEGER 


GOPCOM 

REFS 

17 






DEFINED 

482 

1067 

CM 

INTEGER 


GOPCOM 

REFS 

17 






2*502 

505 

767 

CREF 

REAL 

ARRAY 

GOPCOM 

REFS 

18 






265 

268 






DEFINED 

35 

1056 

CROW 

REAL 


GOPCOM 

REFS 

18 






DEFINED 

24 

1071 

CT 

INTEGER 


GOPCOM 

REFS 

17 






DEFINED 

482 

4262 

DRDX 

REAL 

ARRAY 


REFS 

8 

7555 

DUM 

REAL 



REFS 

7 

3572 

DX 

REAL 



REFS 

8 






198 


4426 

DYDX 

REAL 

ARRAY 


REFS 

8 

4572 

DZDX 

REAL 

ARRAY 


REFS 

8 

1053 

ETA 

REAL 


GOPCOM 

REFS 

18 






DEFINED 

24 

550 

FAL 

REAL 

ARRAY 

GENCOM 

REFS 

15 

5764 

FCL 

REAL 

ARRAY 

GENCOM 

REFS 

15 

0 

GOP 

INTEGER 


GENCOM 

REFS 

13 






214 

267 

3605 





DEFINED 

521 

I 

INTEGER 



REFS 

71 

3547 

IBN 

INTEGER 



REFS 

6 

3543 

IBTC 

INTEGER 



REFS 

6 






DEFINED 

103 

16152 

IC 

INTEGER 


GENCOM 

REFS 

20 

3546 

ICBN 

INTEGER 



REFS 

6 

3542 

IFN 

INTEGER 



REFS 

6 
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20 


254 

255 

412 

DEFINED 

229 


258 

DEFINED 

251 

254 



258 

DEFINED 

252 

255 



22 

46 

211 

213 

215 

416 

DEFINED 

45 

189 

201 

403 

408 

22 

37 

91 

100 

130 

133 

457 

459 

462 

478 



88 

YOO 

447 

457 



22 

37 

91 

2*98 

119 

120 

133 

144 

145 

146 

147 

265 

462 

478 

DEFINED 

35 

88 

447 

22 

489 

499 

502 

505 


22 

37 

130 

265 



35 






DEFINED 

229 





74 

DEFINED 

69 




22 

2*487 

489 

499 

2*502 

505 

22 

485 

2*486 

489 

498 

499 

DEFINED 

482 





22 

37 

91 

101 

130 

133 

458 

459 

462 

478 



88 

101 

447 

458 



22 

42 

163 

312 



41 






22 

2*488 

489 

499 

2*502 

505 

DEFINED 

154 





DEFINED 

2*69 

103 




178 

179 

199 

DEFINED 

176 

177 

DEFINED 

154 





DEFINED 

154 





22 

42 

163 

312 



41 






20 






20 






20 

27 

57 

61 

132 

164 

313 

433 

461 

477 

490 

504 

DEFINED 

34 

65 

446 



DEFINED 

103 





106 

116 

119 

120 

121 


DEFINED 

103 





73 

DEFINED 

69 
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IF(.NOT.WGICN)) GO TO 60 
C PROCESS THIS LOAD 

RS= .FALSE. 

175 C RIGHT SIDE RECYCLE ENTRY POINT FOR NT .GT. 15 

C SUPPRESS PRINTING IF I0P=2 

620 IFCI0P.EQ.2) GO TO 640 

PRINT 6200 

6200 FORMAT C*1*/* ADDITIONAL LOADS OPTION*) 

180 C PRINT CASE DATA HEADER 

CALL CHEAD 

C PRINT SURFACE/AXIS DATA 

JJ= SC(N)+1 

PRINT 6250, N, CSANAMECL,N) ,L=1,4),BTC IN) ,SCNCJJ) , 

185 1 NT/SREF CN) ,BREF CN) ,CREF (N) 

6250 FORMATC// * SAN= *,I2,2X,4A4,22X,*ITC=*,I1 ,3X,-‘SC=*,A3,3X,*NT=*,I3 
1 ,T88,*SREF=*,F10.3,3X,*BREF=*,F8.2,3X,*CREF=*,F8.2) 

IFCSCCN). EQ.O. AND.. NOT. RS) PRINT 6300 

IFCSCCN). EQ.1) PRINT 6301 

190 C RIGHT SIDE RECYCLE ENTRY POINT FOR NT .LE. 15 

630 IFU0P.EQ.2) GO TO 640 

IFCSCCN) .EQ.Q.AND.RS) PRINT 6302 

6300 FORMATC//* LEFT SIDE *) 

6301 FORMATC//* CENTERLINE*) 

195 6302 FORMATC//* RIGHT SIDE*) 

C PRINT COLUMN HEADER 
PRINT 6350 

6350 FORMAT C*0*, ,j7X,*C0MP0NENT DESCRIPTION VALUE V FACTOR *, 

< 1 *0 ’FACTOR T FACTOR V KIPS B IN-KIPS *, 

200 2 *T. IN-KIPS C V CB CT*/) 

C SET LOAD INDEX FOR LEFT OR RIGHT SIDE 
640 LR= 0 

IFCRS.OR.SCCN) . EQ.1) LR= 3 
, REWIND 50 

20;» C PROCESS EACH COMPONENT TERM 

DO 65 J=1,NT 

C CHECK FOR NEW PAGE AND HEADER 

IFCI0P.EQ.2) GO TO 655 

IFCJ.EQ.041.0R.J.EQ.081 . OR. J. EQ.1 21) GO TO 650 
210 IF CJ. EQ.1 61 .0R.J.EQ.201 .OR.J . EQ.241) GO TO 650 

GO TO 655 
650 PRINT 6200 

PRINT 6500, N, CSANAME CL,N) ,L=1 ,4) 

6500 FORMATC// * SAN= *,I2,2X,4A4) 

215 IFCSCCN) .EQ.O.AND. .NOT.RS) PRINT 6300 

IFCSCCN) .EQ.1) PRINT 6301 

IFCSCCN). EQ.Q.AND.RS) PRINT 6302 . 

PRINT 6350 J 

C READ NEXT COMPONENT DEFINITION 

220 655 READC50) CN,CL,CT,C 

C ^ SET UP COMPONENT INDICES 

IFCCN.EQ.O) GO TO 660 
IFCCL. EQ.1. AND. RS) CL=2 
LC= CT 

225 IFCCL. GE. 2) LC= CT+3 

CV= FALCIC,CN,LC) >1 

C SPECIAL CASE FOR CONSTANTS 

660 IFCCN.EQ.O) CV= 1.0 



NASA DfRC 


SUBROUTINE WOPSR 73/74 0PT=1 


FTN 4.2+75060 07/29/81 16.31 .57. PAGE 1 


5 

10 

15 

20 

25 

30 

35 

40 

45 

50 

55 


SUBROUTINE WOPSR 
C 

C COMPUTES RIGID LOAD DATA FROM WIND TUNNEL AIRLOAD COEFFICIENTS 
C 

INTEGER flT3(18>,WTN,WTNAME(4),NSEQC15),DES(3,15> 

REAL CPER(3,15),R(15),CTOT(3),LTOT(3) 

LOGICAL WGR (50) / WGS (50) ,WGI (50) ,WGW(1 4) ,RS 

INTEGER GOP,PCP,ROP,SCP,IOP,WOP,AC(2,2),NC,NSB,LRVL(4),SCN(2) 

INTEGER LRC(3),VBT(3> 

REAL RD(20,9),FAL(9,50,6) ,FCL(9,50,6) ,WAL (9,14,6) ,UCL(9,14,6) 
COMMON/GENCOM/GOP,POP,ROP,SOP,IOP,WOP,WGR,WGS,WGI,WGW,AC,NC,NSB, 
1 RD,LRVL,FAL,FCL,WAL,WCL,SCN,IC,LRC,VBT,RS 

REWIND 40 

IFCNC.NE.O) GO TO 300 
C 

C CREATE AIRLOAD COEFFICIENT FILE FROM CARDS 
C 

READ(1,1000)- TIT3 

WRITEC40) TIT3 

1000 FORMAT (18A4) 

100 READ (1,1 001) WTN,WTNAME,SWT,BWT,CWT,XHT,YHT.XVT,ZVT 

1001 FORMAT(I2,2X,4A4,3F10.0,2X,4F7.0) 

IF(EOF'I) .NE.O.O) RETURN 

WRITE (40) WTN,WTNAME,SWT,BWT,CWT,XHT,YHT,XVT,ZVT 

DO 10 1-1,15 

READ(1,1002) NSEQ(I), (CPER(J,I),J=1 ,3), (DES(J,I) ,J-1,3) 

10 WRITE (40) NSECKI) , (CPER(J,I) ,J=1,3), (DES (J,I) ,J=1 ,3) 

1002 FORMAT (5X,I5,3E10. 2, 2X,3A7) 

GO TO 100 

C 

C COMPUTE LOADS/COEFFICIENTS FOR ALL CASES 
C 

300 DO 30 IC=1,NC 
A = RD(1,IC) 

B - RD(2,IC) 

Q = RD(3,IC) 

V = RD(4,IC) 

AB = RD(1 ,IC) * RD (2,10 \ 

DA = RD(13,IC) 

DE = RD(14,IC) 

DRU= RD(15,IC) 

DRL- RD(16,IC) 

DSL= RD(17,IC) 

DSR= RD(18,IC) 

IF(V.EQ.O.O) V-1 .0 
REWIND 40 

READ (40) TIT3 

400 READC40) WTN,WTNAME,SWT,BWT,CWT,XHT,YHT,XVT,ZVT 

IFCE0FC40) .NE.O.O) GO TO 30 
DO 40 1=1,15 

40 READ (40) NSEQ(I),(CPER(J,I),J=1,3),(DES(J,I),J=1,3> 

IF( (WTNiEQ.1 ) .AND. (.NOT.WGW(I))) GO TO 400 

IF((WTN.EQ.2).AND.(.NOT.WGW(3))) GO TO 400 

IF( (WTN.EQ.3) .AND. ( .N0T.WGW(5))) GO TO 400 

IF((WTN.EQ.4) .AND. (.N0T.WGW(6)) ) GO TO 400 

IF((WTN.EQ.5) .AND. ( .N0T.WGW(7))) GO TO 400 

IFUWTN.EQ.6) .AND. (,N0T.WGW(9)) ) GO TO 400 
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REFERENCE MAP (R=3) 









ENTRY 

POINTS 

DEF LINE 

REFERENCES 








16463 

FLIP 

22 










VARIABLES SN 

TYPE 

RELOCATION 








252 

AC 

INTEGER 

ARRAY 

GENCOM 

REFS 

28 

40 





304 

A1 

REAL 

ARRAY 

POPCOM 

REFS 

38 

44 





1062 

BARM 

REAL 


GOPCOM 

REFS 

34 

42 





705 

BREF 

REAL 

ARRAY 

GOPCOM 

REFS 

33 

42 

135 

DEFINED 

48 


456 

BTC 

INTEGER 

ARRAY 

GOPCOM 

REFS 

31 

42 

135 

DEFINED 

49 


315 

B1 

REAL 

ARRAY 

POPCOM 

REFS 

38 

'44 





1072 

C 

REAL 

ARRAY 

GOPCOM 

REFS 

34 

42 





1051 

CAVG 

REAL 


GOPCOM 

REFS 

33 

42 





1070 

CL 

INTEGER 


GOPCOM 

REFS 

32 

42 





1067 

CN 

INTEGER 


GOPCOM 

REFS 

32 

42 





351 

CPBODY 

INTEGER 

ARRAY 

POPCOM 

REFS 

36 

44 





364 

CPL 

REAL 


POPCOM 

REFS 

39 

44 





363 

CPR 

REAL 


POPCOM 

REFS 

39 

44 





362 

CPS 

REAL 


POPCOM 

REFS 

39 

44 





767 

CREF 

REAL 

ARRAY 

GOPCOM 

REFS 

33 

42 

135 

DEFINED 

48 


1056 

CROW 

REAL 


GOPCOM 

REFS 

33 

42 





1071 

CT 

INTEGER 


GOPCOM 

REFS 

32 

42 





0 

DN 

INTEGER 


POPCOM 

REFS 

36 

44 





1 

DUMMY 

INTEGER 

ARRAY 

POPCOM 

REFS 

36 

44 





1053 

ETA 

REAL 


GOPCOM 

REFS 

33 

42 





550 

FAL 

REAL 

ARRAY 

GENCOM 

REFS » 

30 

40 

167 

DEFINED 

46 


5764 

FCL 

REAL 

ARRAY 

GENCOM 

REFS 

30 

40 

167 

DEFINED 

46 


0 

GOP 

INTEGER 


GENCOM 

REFS 

28 

40 

78 

80 

DEFINED 

61 

17367 

I 

INTEGER 



REFS 

2*70 

72 

74 

89 

92 

93 94 






116 

119 

DEFINED 

69 

89 

114 


16152 

IC • 

INTEGER 


GENCOM 

REFS 

40 

166 

3*167 

2*170 

178 







DEFINED 

131 

164 

177 



340 

IMR 

INTEGER 

ARRAY 

POPCOM 

REFS 

36 

44 

166 

178 



355 

INAF 

INTEGER 


POPCOM 

REFS 

37 

44 





360 

INPT 

INTEGER 


POPCOM 

REFS 

37 

44 





337 

INTB 

INTEGER 


POPCOM 

REFS 

36 

44 





4 

IOP 

INTEGER 


GENCOM 

REFS 

28 

40 

63 

105 

109 







DEFINED 

61 






17371 

J 

INTEGER 


, 

REFS 

89 

2*94 

DEFINED 

89 



17375 

JJ 

INTEGER 



REFS 

135 

DEFINED 

' 134 




17372 

K 

INTEGER 



REFS 

94 

2*167 

2*170 

DEFINED 

93 

2*167 2*170 

17376 

L 

INTEGER 



REFS 

135 

DEFINED 

135 




17374 

LR 

INTEGER 



REFS 

2*167 

-*170 

DEFINED 

127 

162 


16153 

LRC 

INTEGER 

ARRAY 

GENCOM 

REFS 

29 

40 

DEFINED 

53 



544 

LRVL 

INTEGER 

ARRAY 

GENCOM 

REFS 

28 

40 

DEFINED 

51 



17373 

M 

INTEGER 



REFS 

120 

122 

2*139 

145 

151 

153 169 






2*170 

DEFINED 

119 

124 




272 

MR 

REAL 


POPCOM 

REFS 

38 

44 





366 

MRN 

INTEGER 

ARRAY 

POPCOM 

REFS 

37 

44 

DEFINED 

54 



273 

Ml 

REAL 

ARRAY 

POPCOM 

REFS 

38 

44 





1 

N 

INTEGER 


GOPCOM 

REFS 

31 

42 

117 

134 

6*135 

142 143 






162 

2*167 

175 

DEFINED 

116 



353 

NAF , 

REAL 


POPCOM 

REFS 

38 

44 





1065 

NALD 

INTEGER 


GOPCOM 

REFS 

32 

42 





256 

NC 

INTEGER 


GENCOM 

REFS 

' 28 

40 

106 

131 

164 

177 






DEFINED 

57 

96 
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73/74 OPT=1 


VARIABLES 

SN TYPE 

RELOCATION 



4 

IOP 

INTEGER 


GENCOH 

REFS 

13 

3607 

J 

INTEGER 



REFS 

174 






2*241 

3*242 






3*283 

3*289 






2*337 

6*339 






354 

356 






369 

2*371 






40 ? 

502 






288 

298 

3552 

JJ 

INTEGER 



REFS 

6 






421 

422 






324 

377 






454 


3610 

K 

INTEGER 



REFS 

2*235 






3*282 

3*283 






280 

326 

3606 

L 

INTEGER 



REFS 

2*35 






7*229 

2*265 






DEFINED 

2*35 






3*229 

2*265 

3603 

LA 

REAL 



REFS 

11 

3604 

LAD 

REAL 



REFS 

11 

16153 

LRC 

INTEGER 

ARRAY 

GENCOM 

REFS 

14 

544 

LRVL 

INTEGER 

ARRAY 

GENCOM 

REFS 

13 

3611 

M 

INTEGER 



REFS 

14*229 

3554 

MN 

REAL 



REFS 

7 

3571 

MRC 

REAL 



REFS 

8 






DEFINED 

137 

1 

N 

INTEGER 


GOPCOM 

REFS 

16 






2*98 

2*99 






119 

120 






147 

8*265 






2*456 

2*457 






DEFINED 

35 

1065 

NALD 

INTEGER 


GOPCOM 

REFS 

17 






446 

DEFINED 

3666 

NB 

INTEGER 

ARRAY 


REFS 

5 

256 

NC 

INTEGER 


GENCOM 

REFS 

13 

3545 

NCP 

INTEGER 



REFS 

6 






247 

280 

3550 

NIB 

INTEGER 



REFS 

6 

3553 

NLP 

INTEGER 



REFS 

6 

1055 

NP 

INTEGER 


GOPCOM 

REFS 

17 






173 

176 






250 

253 

622 

NR 

INTEGER 


GOPCOM 

REFS 

16 






262 

265 






260 


3664 

NRB 

INTEGER 

ARRAY 


REFS 

5 

0 

NSAD 

INTEGER 


GOPCOM 

REFS 

16 






65 

DEFINED 

257 

nsb 

INTEGER 


GENCOM 

REFS 

13 

1066 

NT 

INTEGER 


GOPCOM 

REFS 

17 


DEFINED 447 

REFS 6 


357 360 


3551 NV 


INTEGER 
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3*176 

3*177 

178 

179 

199 

2*203 

3*243 

248 

254 

2*255 

256 

3*282 

300 

4*318 

4*321 

332 

334 

335 

342 

344 

345 

2*347 

2*349 

6*351 

357 

2*359 

6*361 

2*364 

366 

368 

6*373 

412 

413 

414 

3*491 

3*492 

DEFINED 

40 

173 

240 

247 

281 

481 






107 

116 

417 

418 

419 

420 

423 

464 

DEFINED 

106 

115 

316 

383 

384 

390 

391 

397 

398 

2*236 

2*237 

2*238 

2*241 

3*242 

3*243 

327 

328 

329 

DEFINED 

44 

234 

2*37 

2*88 

2*91 

2*130 

2*133 

5*154 

2*268 

447 

459 

462 

478 

502 

2*37 

2*88 

2*91 

2*130 

2*133 

2*154 

2*268 

447 

459 

462 

478 

502 

2*282 

2*283 

DEFINED 

279 



273 

279 

DEFINED 

271 



20 

502 





20 






DEFINED 

229 





DEFINED 

69 





144 

145 

146 

147 

201 


22 

7*35 

8*37 

6*88 

7*91 

2*97 

2*100 

2*101 

103 

2*109 

2*114 

115 

121 

8*130 

8*133 

144 

145 

146 

8*268 

6*447 

2*451 

452 

2*453 

454 

2*458 

7*459 

6*462 

470 

471 

7*478 

88 

447 





22 

32 

56 

64 

85 

445 

31 

55 





2*109 

DEFINED 

103 




20 






106 

153 

154 

159 

229 

234 

298 

DEFINED 

103 




154 

DEFINED 

153 




304 

306 

DEFINED 

297 

304 

310 

22 

42 

44 

161 

163 

16. 

177 

253 

257 

DEFINED 

41 

159 

22 

37 

40 

127 

130 

133 

268 

288 

297 

DEFINED 

35 

126 

DEFINED 

103 





22 

32 

34 

56 

59 

64 

31 

55 





20 






22 

455 

459 

464 

478 

481 

333 

334 

335 

338 

339 

340 

345 

350 

351 

352 

355 

356 

361 

362 

367 

368 

369 

372 
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230 


235 


240 


245 


250 


255 


260 


265 


270 


275 


280 


C COMPUTE COMPONENT V,B,T,CV,CB,CT 

PL(1)= CV*C(1) 

PL(2)= CV*C(2) 

PLC3)= CV*C(3) 

PL(4)“ PL'CI ) / (Q1(IC)*SREF(N)) 

PL(5)“ PL(2) / CQ1UC)*SREFlN)*BREFlhl;) 

PL (6)- PL (3) / CQ1(IC)*SREF(N)*CREF(N)) 

C COMPUTE RUNNING TOTALS 

DO 67 K=1,3 
LN= LR+K 

FALUC,N,LN)= FAL(IC,N,LN) + PL IK) 

67 FCL(IC,N,LN)= FCL(IC,N,LN> + PLCK+3) 

C PRINT COMPONENTS 

XFU0P.EQ.2) GO TO 65 

IF(CN.NE.O) PRINT 6700, J,CN,(SANAMECL,CN),L=1,4), 

1 LRC (CL) , VBT ( CT) , C V, C, PL 

IF(CN.EQ.O) PRINT 6701, J,CN,CV,C,PL 

6700 FORMAT (* *,2I3,1X,4A4,1X,A2,1X,A1,-3PF12.3,0P,3F10.3,-3P,3F12.3, 

1 0P,3F10.6) 

6701 FORMAT (* *,213,* C0NSTANTS*,12X,F12.3,3F10.3,3F12.3,3F10.6) 

65 CONTINUE 

C PRINT TOTAL LOADS AND COEFFICIENTS 

IFCI0P.EQ.2) GO TO 680 

PRINT 6800, (FAL(IC,N,K+LR),K=1,3),(FCLUC, J,K+LR),K=1,3) 

6800 FORMAT (/ / T32,*TOTAL LOADS AND C0EFFICIENTS*,T72,-3P,3F12.3, 

1 0P,3F10.6//) 

C CHECK FOR RIGHT SIDE LOAD RECYCLE 

680 IFCRS.OR.SCCN) .EQ.1) GO TO 60 

IFCIMRUO.EQ.1) GO TO 690 

C RECYCLE FOR RIGHT SIDE 

RS= .TRUE. 

IFCNT.GT.15) GO TO 620 
IF0iT.LE.15) GO TO 630 

C SYMM MOTION SET RIGHT SIDE EQUAL TO LEFT 
690 DO 69 K=1,3 

FAL(IC,N,K+3)= FALUC,N,K) 

69 FCLUC,N,K+3) = FCLCIC,N,K) 

IFCI0P.EU.2) GO TO 60 
PRINT 6900 

6900 FORMAT (*+*,. ARIGHT SIDE LOADS = LEFT SIDE (SYMMETRIC MOTION)*) 

C GO TO NEX T ADDITIONAL LOAD DEFINITION 
60 CONTINUE 

C CLOSE OUT THIS CASE 

800 IF(I0P.EQ.2.AND.IC.NE.1) GO TO 820 
PRINT 1000 

IF NALD.NE.O) PRINT 8000 

8000 F0.IMAT(*+*,23X,*AND ADDITIONAL LOADS OPTION*//) 

820 PRINT 8200, IC 

8200 FORMAT (*-*,*CASE *,I2,* COMPLETE*) 

C PcADY FOR NEXT CASE 

10 CONTINUE 
RETURN 
END 


o 
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60 

65 

70 

75 

80 

85 

90 

95 

100 

& 

105 

110 


IFCCWTN.EQ.4) .AND. C _ WGWC5))) GO TO 500 
C 

C PRINT CASE DATA FOR DESIRED SURFACE 
C 

PRINT 4000, IC / TIT3,A / B / Q 

4000 FORMAT C*'1*,T2*WIND TUNNEL 0PTI0N*//T2*CASE *,I1,5X,18A4,T91 
1 *ALPHA=*,F8.4,* BETA=*,F8.4,* 0BAR=*,F7.2) 

PRINT 4001 , RD(7,IC),RD(8,IC),RD(9,IC),DSL,DSR,DRU,DRL,DE,DA,V 
40G1 FORMAT (T14*P=*,F6.1,* Q=*,F5.1,* R-*,F5.1,* DSL=*,F5.1, 

1 * DSR=*,F5.1,* DRU=*,F6.2,* DRL=*,F6.2,6X,*DE=*,F8.4, 

2 5X,*DA=*, F8 . 4,* TAS=*,F7.2) 

500 PRINT 5000, WTN,WTNAME,SWT,BWT,CWT 

5000 'FORMAT ( //* WTN= *,I2,2X,4A4,4X,*SREF=*,F10.3,4X,* BREF=*,F8.2, 

1 4X,*CREf=*,F8.2) 

IFtWTN.EQ.6) SPRINT 5001, XHT,YHT,XVT,ZVT 

5001 FORMAT (*+*,T88*XHT=*, F6 • 2,* YHT=*,F6.2, 

1 3X,*XVT**,F6.2,* ZVT=*,F6.2> 

IFCWTN.6E.1 .AND.WTN.LE.6) GO TO 600 
PRINT 5010, WTN 

5010 FORMATC////* WTN=*,I3,* IS ILLEGAI GOING TO NEXT SURFACE*) 

GO TO 400 

600 PD= (RD(7,IC)*BWT)/(V*12.0) 

QD= (RD(8,IC)*CWT)/(V*24.0) 

YD= (RD(9,IC)*BWT)/(V*12.0) 

AD= (RD(5,lC)*CWT)/ (V*24.0) 

C 

C SET UP CONTROL DATA FOR DIFFERENT SURFACES 
C 

GO TO (610,620,630,630,650,660) WTN 
C WING - LEFT HAND 


610 NSA=1 


IS= 1 


JA=D 


NF= 1 


NL=10 


RC1) = 

1.0 

R(2) = 

A 

R(3) = 

AD 

R(4) = 

DSL 

R(5) = 

PD 

R(6) = 

QD 

R (7) = 

B 

R(8) = 

AB 

RC9) = 

B 

R(10) = 

AB 

DO 61 : 

1=1,3 


61 CPER(I,4)= -(CPERU,4)) 
GO TO 700 

C HORIZ TAIL - LEFT HAND 
620 NSA=3 
IS- 1 
JA= 0 
NF= 1 
NL=10 
R(1) = 1.0 
R(2) = A 
R(3) a DE 


/ 
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' 

VARIABLES 

SN TYPE 

RELOCATION 











1055 

NP 

INTEGER 


GOPCOM 

REFS 

32 

42 








357 

NPT 

REAL 


POPCOM 

REFS 

38 

44 








622 

NR 

INTEGER 


GOPCOM 

REFS 

31 

42 








0 

NSAD 

INTEGER 


GOPCOM 

REFS 

31 

42 








257 

NSB 

INTEGER 

i 

GENCOM 

REFS 

28 • 

40 

DEFINED 

96 






173^0 

NSP 

If ’EGER 



REFS 

108 

114 

DEFINED 

74 






1066 

NT 

INTEGER 


GOPCOM 

PEFS 

32 

42 








271 

NTB 

RE 


POPCOM 

REFS 

38 

44 








1057 

PN 

IN"i "GER 

ARRAY 

GOPCOM 

REFS 

32 

42 








1 

POP 

INTEGER 


GENCOM 

REFS 

28 

40 

81 

101 

DEFINED 

61 




326 

Q1 

REAL 

ARRAY 

POPCOM 

REFS 

38 

44 








260 

RD 

REAL 

ARRAY 

GENCOM 

REFS 

30 

40 

94 

DEFINED 

55 

89 

94 



1052 

RN 

INTEGER 


. GOPCOM 

REFS 

32 

42 








2 

ROP 

INTEGER 


GENCOM 

REFS 

28 

40 

DEFINED 

61 






,-,16161 

RS 

LOGICAL 


GENCOM 

REFS 

27 

40 

142 

162 

166 

175 









DEFINED 

126 

182 








312 

SABODY 

INTEGER 

ARRAY 

GOPCOM 

REFS 

31 

42 

DEFINED 

50 






2 

SANAME 

INTEGER 

ARRAY 

GOPCOM 

REFS 

31 

42 

135 

DEFINED 

50 





370 

SB 

LOGICAL 


POPCOM 

REFS 

35 

44 








540 

SC 

INTEGER 

ARRAY 

GOPCOM 

REFS 

31 

42 

134 

142 

143 

162 

175 








DEFINED 

49 









16150 

SCN 

INTEGER 

ARRAY 

GENCOM 

REFS 

28 

40 

135 

DEFINED 

52 





3 

SOF- 

INTEGER 


GENCOM 

REFS 

28 

40 

DEFINED 

61 


t 




1061 

SP 

REAL 


GOPCOM 

REFS 

. 34 

42 








17377 

SPI 

INTEGER 

ARRAY 


REFS 

* 26 

72 

116 

DEFINED 

70 


0 



17462 

spw 

INTEGER 

ARRAY 


v RETS • 

26 

119 

DEFINED 

70 






623 

SREF 

REAL 

ARRAY 

GOPCOM 

i >lj,' 

33 

42 

135 

DEFINED 

48 





1063 

TARM 

REAL 


GOPCOM 

.- V* v 

34 

42 








354 

THETA 

REAL 


POPCOM 

: SFi 

38 

44 








5 

TIT1 

INTEGER 

ARRAY 

POPCOM 


36 

44 








247 

TIT2 

INTEGER 

ARRAY 

POPCOM 

- 

36 

44 








16156 

VBT 

INTEGER 

ARRAY 

GENCOM 

Rt r S 

29 

40 

DEFINED 

53 






13200 

WAL 

REAL 

ARRAY 

GENCOM 

REFS 

30 

40 

170 

DEFINED 

47 





14564 

WCL 

REAL 

ARRAY 

GENCOM 

REFS 

30 

40 

170 

DEFINED 

47 





152 

WGI 

LOGICAL 

ARRAY 

GENCOM 

REFS 

27 

40 

117 

DEFINED 

56 

63 




6 

WGR 

LOGICAL 

ARRAY 

GENCOM 

REFS 

27 

40 

DEFINED 

56 






70 

WGS 

LOGICAL 

ARRAY 

GENCOM » 

REFS 

■ 27 

4P 

DEFINED 

56 






234 

WGW 

LOGICAL 

ARRAY 

GENCOM 

REFS 

27 

. 40 

122 

DEFINED 

56 

64 




5 

wop 

INTEGER 


GENCOM 

REFS 

28 

40 

64 

81 

85 

106 

121 








REFINED 

61 









361 

XC 

REAL 


POPCOM 

REFS 

39 

44 








1064 

XCN 

REAL 


GOPCOM 

REFS 

34 

42 



1 





365 

XR 

RE/L 


POPCOM 

REFS 

39 

44 








1054 

YL 

REAL 


GOPCOM 

REFS 

33 

42 








356 

YR 

REAL 


POPC' 5 

REFS 

38 

44 








. FILENAME;.-, 

MODE 









* ■ 




0 

IN.-T.rr 














142 

0U1YJT 

FMT 


WRITES 

111 

128 

135 

139 

142 

143 

144 

145 







150 

151 

152 

153 

167 

170 

183 

187 

193 



/;04 

PUNCH 














0 

TAPH1 

FMT 


READS 

61 

63 

64 

70 

89 

96 





546 

TAPE11 














1610 

TAPE12 














2452 

TAPE13 














3 14 

TAPE14 














4750 

TAPH15 




it 
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VARIABLES 

SN TYPE 

RELOCATION 














373 

374 

2*376 

385 

392 

423 








DEFINED 

325 

333 

338 

343 

350 

355 

360 






367 

372 







3544 

NW 

INTEGER 



REFS 

6 

106 

153 

DEFINED 

103 



4736 

PC 

REAL 

ARRAY 


REFS 

9 

248 

256 

300 

DEFINED 

229 


1057 

PN 

INTEGER 

ARRAY 

GOPCOM 

REFS 

17 

22 

46 

211 

213 

215 

315 






416 

432 

434 

DEFINED 

45 

168 

174 

302 






303 

315 







1 

. OP 

INTEGER 


GENCOM 

REFS 

13 

20 






4116 

RCP 

REAL 

ARRAY 


REFS 

7 

199 

DEFINED 

154 




260 

RD 

REAL 

ARRAY 

GENCOM 

REFS 

15 

20 






1052 

RN 

INTEGER 


GOPCOM 

REFS 

17 

22 

42 

163 

165 

249 

257 






258 

260 

301 

302 

304 

310 

3*312 

3*314 






DEFINED 

41 

157 

246 

249 

296 

301 


2 

ROP 

INTEGER 


GENCOM 

REFS 

13 

20 






16161 

RS 

LOGICAL 


GENCOM 

REFS 

12 

20 






312 

SABODY 

INTEGER 

ARRAY 

GOPCOM 

REKS 

16 

22 

37 

91 

2*109 

130 

133 






265 

268 

DEFINED 

35 

88 




2 

SANAME 

INTEGER 

ARRAY 

GOPCOM 

REFS 

16 

22 

37 

91 

130 

133 

265 






268 

459 

462 

478 

502 

DEFINED 

35 

88 






447 








540 

SC 

integer 

ARRAY 

GOPCOM 

REFS 

16 

22 

37 

114 

115 

130 

133 






265 

268 

453 

454 

459 

470 

471 

478 






DEFINED 

35 

103 

114 

447 

453 



16150 

SCN. 

INTEGER 

ARRAY 

GENCOM 

REFS 

13 

20 

116 

464 




3 

SOP 

INTEGER 


GENCOM 

REFS 

13 

20 






1061 

SP 

REAL 


GOPCOM 

REFS 

19 

22 

46 

211 

213 

215 

217 






. 402 

403 

404 

416 

432 

434 

435 







DEFINED 

45 

188 

199 

401 

402 

407 

412 

623 

SREF 

REAL 

ARRAY 

GOPCOM 

REFS 

18 

22 

37 

91 

99 

130 

133 


i v 




265 

268 

456 

459 

462 

478 








DEFINED 

35 

88 

99 

447 

456 



27310 

ST 

REAL 

ARRAY 


REFS 

11 

383 

■ 390 

397 

3*401 

3*403 

3*404 






DEFINED 

327 

380 

387 

394 




3574 

TA 

REAL 



REFS 

8 

217 

221 

435 

439 








DEFINED 

66 

217 

435 





1063 

TARM 

REAL 


GOPCOM 

REFS 

19 

22 

46 

211 

213 

215 

416 






432 

434. 

DEFINED 

45 

169 

404 

409 

414 

3565 

TBL 

REAL 



REFS 

7 

DEFINED 

154 





15726 

TC 

REAL 

ARRAY 


REFS 

10 

DEFINED 

229 





3561 

TU 

REAL 



REFS 

7 

2*242 

2*243 

261 

DEFINED 

103 

229 

3562 

TND 

REAL 



REFS 

7 

262 

DEFINED 

261 




3670 

TNP 

INTEGER 

ARRAY 


REFS 

6 

289 

304 

310 

312 

314 







DEFINED 

257 







27226 

TYL 

REAL 

ARRAY 


REFS 

11 

289 

312 

314 

DEFINED 

258 


3640 

UID 

INTEGER 

ARRAY 


REFS 

5 

75 

DEFINED 

69 




1705 

UON 

INTEGER 0 



REFS 

5 

81 

DEFINED 

25 




3541 

UOPT 

INTEGER 



REFS 

5 

76 

81 

DEFINED 

69 



16156 

VBT 

INTEGER 

ARRAY 

GENCOM 

REFS 

14 

20 

502 





13200 

WAL 

REAL 

ARRAY 

GENCOM 

REFS 

15 

20 






14564 

WCL 

REAL 

ARRAY 

GENCOM 

REFS 

15 

20 






152 

WGI 

LOGICAL 

ARRAY 

GENCOM 

REFS 

12 

20 






_6 

WGR 

LOGICAL 

ARRAY 

GENCOM 

REFS 

12 

20 






^0 

WGS 

LOGICAL 

ARRAY 

GENCOM 

REFS 

12 

20 






234 

WGW 

LOGICAL 

ARRAY 

GENCOM 

REFS 

12 

20 






5 

WOP 

INTEGER 


GENCOM 

REFS 

13 

20 






27321 

X 

REAL 

ARRAY 


REFS 

11 

3*380 

3*381 

3*387 

3*388 

3*394 

3*395 
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SYMBOLIC 

REFERENCE MAP (R=3> 


ENTRY 

POINTS 

DEF LINE 

REFERENCES 

1 

IOPSR 

1 

280 


VARIABLES SN 

TYPE 

RELOCATION 

252 

AC 

INTEGER 

ARRAY 

GENCOM 

304 

Al 

REAL 

ARRAY 

POPCOM 

1062 

BARM 

REAL 


GOPCOM 

705 

BREF 

REAL 

ARRAY 

GOPCOM 

456 

BTC 

INTEGER 

ARRAY 

GOPCOM 

315 

Bl 

REAL 

ARRAY 

POPCOM 

1072 

C 

REAL 

ARRAY 

GOPCOM 

1051 

CAVG 

REAL 


GOPCOM 

1070 

CL 

INTEGER 


GOPCOM 

1067 

CN 

INTEGER 


GOPCOM 

2075 

CP 

REAL 

ARRAY 


351 

CPBODY 

INTEGER 

ARRAY 

POPCOM 

364 

CPL 

REAL 


POPCOM 

363 

CPR 

REAL 


POPCOM 

362 

CPS 

REAL 


POPCOM 

767 

CREF 

REAL 

ARRAY 

GOPCOM 

1056 

CROW 

REAL 


GOPCOM 

1071 

CT • 

INTEGER 


GOPCOM 

2073 

cv 

REAL 



0 

DN 

integer 


POPCOM 

1 

DUMMY 

INTEGER 

ARPAY 

POPCOM 

1053 

ETA 

REAL 


GOPCOM 

550 

FAL 

REAL 

ARRAY 

GENCOM 

5764 

FCL 

REAL 

ARRAY 

GENCOM 

0 

GOP 

INTEGER 


GENCOM 

2063 

I 

INTEGER 



16152 

IC 

INTEGER 


GENCOM 


340 

IMR 

INTEGER 

ARRAY POPCOM 

355 

INAF 

INTEGER 

POPCOM 

360 

INPT 

INTEGER 

POPCOM 

337 

INTB 

INTEGER 

POPCOM 


FTN 4.2+75060 


REFS 

8 

20 


REFS 

18 

24 


REFS 

14 

22 

104 

DEFINED 

82 



REFS 

13 

22 

46 

DEFINED 

165 



REFS 

11 

22 

44 

DEFINED 

165 



REFS 

18 

24 


REFS 

14 

22 

170 

245 

DEFINED 

169 

220 

REFS 

13 

22 


REFS 

12 

22 

170 

DEFINED 

169 

220 

223 

REFS 

12 

22 

170 

2*245 

DEFINED 

169 

220 

REFS 

6 

102 

103 

DEFINED 

87 

88 

91 

98 

100 



REFS 

16 

24 

44 

REFS 

19 

24 

91 

DEFINED 

83 



REFS 

19 

24 

92 

REFS 

19 

' 24 

87 

DEFINED 

83 



REFS 

13 

22 

46 

DEFINED 

165 



REFS 

13 

22 

DEFINED 

REFS 

12 • 

22 

170 

DEFINED 

169 

220 


REFS 

230 

231 

232 

DEFINED 

226 

228 


REFS 

16 

24 

DEFINED 

REFS 

16 

24 


REFS 

13 

22 

DEFINED 

REFS 

10 

20 

110 

143 

144 

145 

146 

264 

DEFINED 

110 

239 

REFS 

10 

20 

136 

252 

265 

DEFINED 

135 

146 

147 

240 

265 

REFS 

8 

20 


DEFINED 

30 

162 


REFS 

20 

28 

102 

2*137 

3*1 42 

3*143 

3*144 

150 

226 

233 

234 

257 

2*264 

2*265 

272 

REFS 

16 

24 

257 

REFS 

17 

24 


REFS 

17 

24 


REFS 

16 

24 
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105 

112 

114 


144 

145 

184 

234 

45 

85 

184 


230 

231 

232 

243 

223 

225 

243 


222 

226 

228 

3*243 

2*112 

114 



92 • 

95 

96 

97 

97 

100 



98 

DEFINED 

83 


88 

95 

96 


146 

147 

184 

235 

66 




224 

225 

243 


243 

245 



28 

I/O REFS 

67 

83 

66 




135 

136 

137 

142 

147 

226 

239 

252 

264 




13? 

149 

150 

240 

142 

143 

144 

145 


103 

2*110 

3*135 

2*136 

3*145 

3*146 

3*147 

149 

235 

2*239 

2*240 

2*252 

276 

DEFINED 

26 
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FILE NAMES 

MODE 









6020 

TAPE16 










7062 

TAPE17 










10124 

TAPE18 










11166 

TAP El 9 










12230 

TAPE20 










13272 

TAPE30 





* 





14334 

TAPE40 










15376 

TAPE50 










EXTERNALS 

TYPE 

ARGS 

REFERENCES 








CHEAD 


0 

132 








EOF 

* REAL 

1 

91 








GOPSR 


0 

78 








IOPSR 


0 

105 








POPSR 


0 

101 








WOPSR 


0 

85 

106 






STATEMENT LABELS 

DEF LINE REFERENCES 







0 

5 


73 

69 







0 

10 


94 

93 







17016 

50 


191 

114 

117 

175 





0 

54 


132 

131 







16772 

57 


173 

164 

166 

169 





0 

58 


179 

177 







16510 

100 


74 

72 







16526 

200 


89 

92 

95, 






16551 

300 


96 

91 







0 

500 

INACTIVE 108 








16601 

510 


124 

121 







16602 

520 


126 

120 

122 






16665 

560 


162 

185 







17010 

580 


182 

178 







17014 

590 


187 

180 







17022 

999 


195 

80 

81 

108 109 





17040 

1000 

FMT 

62 

61 







17054 

1001 

FMT 

65 

63 

64 






17064 

1003 

FMT 

71 

70 







17076 

2000 

FMT 

90 

89 







17107 

3000 

FMT 

97 

96 







17114 

5000 

FMT 

112 

in 







17362 

5001 

FMT 

194 

193 







17121 

5200 

FMT 

129 

128 







17140 

5400 

FMT . 

13“* 

135 







17160 

5401 

FMT 

140 

139 







17177 

5500 

FMT 

146 ’ 

142 







17203 

5501 

FMT 

147 

143 







17207 

5502 

FMT 

148 

144 







17216 

5503 

FMT 

149 

145 


, 





17241 

5510 

FMT 

154 

150 







17253 

5511 

FMT 

156 

151 







17264 

5520 

FMT 

158 

152 







17273 

5521 ' 

FMT 

159 

153 







17322 

5700 ' 

fm; 

171 

167 







17326 

5701 

FMT 

172 

170 







17335 

5800 

Fir 

184 

183 







17346 

5900 

FMT 

188 

187 
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VARIABLES 

SN TYPE 

RELOCATION 














DEFINED 

334 

339 

344 

351 

356 

361 

368 

5246 

XA 

REAL 

ARRAY 


373 

REFS. 

9 

241 

" 334 

2*339 

34*4 

2*351 

356 






2*361 

368 

2*373 

414 

DEFINED 

6*229 

282 


3567 

XAFT 

REAL 



REFS 

8 

139 

181 

183 

184 

185 

186 






191 

196 

DEFINED 

137 





3601 

XAZ 

REAL 



REFS 

11 

273 

282 

283 

DEFINED 

271 


1064 

XCN 

REAL 


GOPCDM 

REFS 

19 

22 

46 

213 

432 








DEFINED 

24 

45 






3752 

XCP 

REAL 

ARRAY 


REFS 

DEFINED 

/-H 

2*176 

2*177 

178 

179 



3573 

XCT 

REAL 



REFS 

201 

DEFINED 

200 




3566 

XFWD 

REAL 



REFS 

8 .* 

139 

182 

183 

184 

185 

186 





V 

195 

195 

DEFINED 

137 





3563 

XLE 

REAL 



REFS 

7 

181 

183 

184 

185 

186 

198 






200 

DEFINED 

154 

178 

v 193 

195 



3570 

XMR 

REAL 



REFS 

8 

139 

201 

DEFINED 

137 



20206 

XN 

REAL 

ARRAY 


REFS 

10 

282 

283 

2*347 

2*364 








DEFINED 

241 







27313 

XT 

REAL 

ARRAY 


REFS 

11 

3*404 

DEFINED 

328 

381 

388 

395 

3564 

XTE 

REAL 



REFS 

7 

182 

183 

184 

185 

186 

198 






200 

DEFINED 

154 

179 

191 

196 



3556 

XZ 

REAL 



REFS 

7 

241 

DEFINED 

103 




27326 

Y 

REAL 

ARRAY 


REFS 

11 

6*380 

3*382 

6*387 

3*389 

6*394 

3*396 






DEFINED 

335 

340 

345 

352 

357 

362 

369 






374 








10346 

YA 

REAL 

ARRAY 


REFS 

9 

235 

237 

242 

243 

4*318 

4*321 






332 

335 

2*337 

4*339 

342 

345 

2*349 

4*351 






354 

357 

2*359 

4*361 

366 

369 

2*371 

4*373 






413 

DEFINED 

2*229 

235 

237 

283 



3602 

YAZ 

REAL 



REFS 

11 

273 

282 

283 

DEFINED 

271 


3575 

YIN 

REAL 



REFS 

9 

DEFINED 

229 





1054 

YL 

REAL 


SOPCOM 

REFS 

18 

22 

42 

161 

163 

165 







DEFINED 

41 

158 






22466 

YN 

REAL 

ARRAY 


REFS 

10 

255 

282 

283 

DEFINED 

242 


3577 

YOUT 

REAL 



REFS 

9 

DEFINED 

229 





27316 

YT 

REAL 

ARRAY 


REFS 

11 

384 

391 

398 

3*403 








DEFINED 

329 

382 

389 

396 




3557 

YZ 

REAL 



REFS 

7 

158 

242 

243 

DEFINED 

103 

154 

12626 

ZA 

REAL 

ARRAY 


REFS 

9 

236 

238 

242 

243 








DEFINED 

2*229 

236 

238 





3576 

ZIN 

REAL 



REFS 

9 

DEFINED 

229 




24746 

ZN 

REAL 

ARRAY 


REFS 

10 

DEFINED 

243 





3600 

ZOUT 

REAL 



REFS 

9 

DEFINED 

229 





3560 

11 

REAL 



REFS 

7 

242 

243 

DEFINED 

103 

154 


FILE NAMES 

MODE 












OUTPUT 

FMT 


WRITES 

57 

59 

62 

73 

74 

75 

76 

82 





85 

91 

116 

127 

139 

144 

145 

146 

147 





161 

170 

204 

205 

209 

211 

221 

262 

273 





286 

289 

292 

. 293 

307 

308 

309 

311 

416 





418 

419 

420 

421 

422 

423 

439 

462 

464 





470 

471 

474 

495 

496 

499 

502 

512 

514 





516 










PINCH 

FMT 


WRITES 

64 

133 

165 

215 

268 

314 

434 

478 





505 










TAPE1 

FMT 


READS 

31 

35 

41 

45 

55 

88 

137 

271 
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PAGE 

7 

VARIABLES 

SN TYPE 

RELOCATION 









4 

IOP 

INTEGER 


GENCOM 

REFS 

8 

20 

36 

68 

Ill 

121 

148 






177 

191 

208' 

242 

251 

266 

272 

2067 

J 

INTEGER 



REFS 

206 

REFS 

3*209 

3*210 

243 

245 

DEFINED 

65 

166 

2064 

JJ 

INTEGER 

» 


44 

184 

DEFINED 

42 

43 

183 


2070 

y 

INTEGER 



REFS 

238 

239 

240 

2*252 

2*264 

2*265 







DEFINED 

81 

237 

2*252 

263 




2065 

L 

INTEGER 



REFS 

44 

72 

3*110 

2*112 

114 

125 

2*135 






2*136 

2*137 

149 

150 

2*155 

165 

184 

213 






243 

DEFINED 

44 

72 

109 

2*112 

V4 

125 






134 

2*136 

2*137 

149 

150 

2*155 

1o5 

184 






213 

243 







2072 

LC 

INTEGER 



REFS 

226 

DEFINED 

224 

225 




2074 

LN 

INTEGER 



REFS 

2*239 

2*240 

DEFINED 

238 




2071 

LR 

INTEGER 



REFS 

238 

2*252 

DEFINED 

202 

203 



16153 

LRC 

INTEGER 

ARRAY 

GENCOM 

REFS 

9 

20 

243 





544 

LRVL 

INTEGER 

ARRAY 

GENCOM 

REFS 

8 

20 






2056 

LU 

INTEGER 



REFS 

70 

77 

123 

DEFINED 

63 

76 

77 

272 

MR 

REAL 


POPCOM 

REFS 

18 

24 

95 

96 

97 

98 

100 

366 

MRN 

. INTEGER 

ARRAY 

POPCOM 

REFS 

17 

24 






273 

Ml 

REAL 

ARRAY 

POPCOM 

REFS 

18 

24 






1 

N 

INTEGER 


GOPCOM 

REFS 

11 

22 

42 

43 

3*44 

45 

3*46 






51 

52 

2*72 

74 

75 

85 

100 

2*110 






112 

114 

2*125 

126 

127 

2*135 

3*136 

3*137 






3*142 

3*143 

4*144 

4*145 

4*146 

4*147 

2*149 

2*150 






3*155 

6*165 

172 

183 

6*184 

188 

189 

192 






203 

2*213 

215 

216 

217 

233 

2*234 

2*235 






2*239 

2*240 

2*252 

256 

2*264 

2*265 








DEFINED 

165 







353 

NAF 

REAL 


POPCOM 

REFS 

18 

24 






1065 

NALD 

INTEGER 


GOPCOM 

REFS 

12 

22 

161 

162 

274 








DEFINED 

29 







256 

NC 

INTEGER 


GENCOM 

REFS 

8 

20 

26 





1055 

NP 

INTEGER 


GOPCOM 

REFS 

12 

22 

70 

' 77 

81 








DEFINED 

66 







357 

NPT 

REAL 


POPCOM 

REFS 

18 

24 

DEFINED 

67 




622 

NR 

INTEGER 


GOPCOM 

REFS 

11 

22 

65 





0 

NSAD 

INTEGER 


GOPCOM 

REFS 

11 

22 

30 

DEFINED 

29 



257 

NSB 

INTEGER 


GENCOM 

REFS 

8 

20 






1066 

NT 

INTEGER 


GOPCOM 

REFS 

12 

22 

168 

184 

206 

260 

261 






DEFINED 

165 







271 

NTB 

REAL 


POPCOM 

REFS 

18 

24 






2077 

PL 

REAL 

ARRAY 


REFS 

6 

104 

105 

106 

107 

110 

2*112 






114 

233 

234 

235 

239 

240 

243 

245 






DEFINED 

102 

103 

104 

105 

106 

107 

230 






231 

232 

233 

234 

235 




1057 

PN 

INTEGER 

ARRAY 

GOPCOM 

REFS 

12 

22 

112 

114 

DEFINED 

82 


1 

POP 

INTEGER 


GENCOM 

REFS 

8 

20 






326 

Q1 

REAL 

ARRAY 

POPCOM 

REFS 

18 

24 

102 

103 

135 

142 

143 

260 





144 

145 

146 

147 

233 

234 

235 


RD 

REAL 

ARRAY 

GENCOM 

REFS 

10 

20 






1052 

RN 

INTEGER 


GOPCOM 

REFS 

12 

22 

DEFINED 

66 




2 

ROP 

INTEGER 


GENCOM 

REFS 

8 

20 






16161 

RS 

LOGICAL 


GENCOM 

REFS 

7 

20 

188 

192 

203 

215 

217 

312 





223 

256 

DEFINED 

174 

259 




SABODY 

INTEGER 

ARRAY 

GOPCOM 

REFS 

11 

22 

155 





2 

SANAME 

INTEGER 

ARRAY 

GOPCOM 

REFS 

11 

22 

44 

72 

125 

155 

184 
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PJASrt DFRC 





NASA DfRC 


PROGRAM FLIP 

73/74 0PT=1 



FTN 4. 

.2+75060 

LOOPS LABEL 

INDEX 

FROM-TO LENGTH 

PROPERTIES 



16476 5 

* I 

69 73 12B 


EXT REFS EXITS 


16547 10 

K 

93 94 2B 

INSTACK 




•’.S57Z 50 

* I 

114 191 2273 


EXT 

REFS NOT INNER 

16606 54 

* IC 

131 132 4B 


EXT 

REFS 


16673 57 

* IC 

164 173 102B 


EXT 

REFS NOT INNER 

16702' 

* K 

167 14B 


EXT 

REFS 


16717 

* K 

167 14B 


EXT 

REFS 


16740 

* K 

170 14B 


EXT 

REFS 


16755 

* K 

170 148 


EXT 

REFS 


17004 58 

* IC 

177 179 3B 

INSTACK 

EXITS 


COWON BLOCKS 

LENGTH 

MEMBERS - BIAS NAMECLENGTH) 




GENCOM 

7282 

0 GOP 

Cl) 


1 POP 

Cl) 



3 SOP 

Cl) 


4 IOP 

Cl) 



6 WGR 

C50) 


56 WGS 

C50) 



156 WGW 

Cl 4) 


170 AC 

C4) 



175 NSB 

Cl) 


176 RD 

C180) 



360 FAL 

C2700) 


3060 FCL 

C2700) 



6516 WCL 

C756) 


7272 SCN 

C2) 



7275 LRC 

C3) 


7278 VBT 

C3) 

GOPCOM 

573 

0 NSAD 

Cl) 


1 \i 

Cl) 



202 SABODY 

Cl 00) 


302 BTC 

L?0) 



402 NR 

Cl) 


403 SREF 

C50) 



503 CREF 

C50) 


553 CAVG 

Cl) 



555 ETA 

Cl) 


556 YL 

Cl) 



558 CROW 

Cl) 


559 PN 

C2) 



562 BARM 

Cl) 


563 TARM 

Cl) 



565 NALD 

Cl) 


566 NT 

Cl) 



568 CL 

Cl) 


569 CT 

Cl) 

POPCOM 

249 

0 DN 

Cl) 


1 DUMMY 

C4) 



167 TIT2 

C18) 


185 NTB 

Cl) 



187 Ml 

C9) 


196 A1 

C9) 



214 Q1 

C9) 


223 INTB 

Cl) 



233 CPBODY 

C2) 


235 NAF 

Cl) 



237 INAF 

Cl) 


238 YR 

Cl) 



240 INPT 

Cl) 


241 XC 

Cl) 



243 CPR 

Cl) 


244 CPL 

Cl) 



246 MRN 

C2) 


248 SB 

Cl) 

STATISTICS 







PROGRAM LENGTH 

1105B 581 





BUFFER LENGTH 

16440B 7456 





CM LABELED i 

COMMON LENGTH 

17650B 8104 







1 


07/29/81 16.31.26. PAGE 8 


2 

ROP 

Cl) 

5 

WOP 

Cl) 

106 

WGI 

C50) 

174 

NC 

Cl) 

356 

LRVL 

C4) 

5760 

WAL 

C756) 

7274 

IC 

Cl) 

7281 

RS 

Cl) 

2 

SANAME 

C200) 

352 

SC 

C50) 

453 

BREF 

C50) 

554 

RN 

• 1) 

557 

NP 

.1) 

561 

SP 

Cl) 

564 

XCN 

Cl) 

567 

CN 

Cl) 

570 

C 

C3) 

5 

TIT1 

C162) 

186 

MR 

Cl) 

205 

Bl 

C9) 

224 

IMR 

C9) 

236 

THETA 

Cl) 

239 

NPT 

Cl) 

242 

CPS 

Cl) 

245 

XR 

Cl) 


y ? 


SUBROUTINE GOPSR 


73/74 OPT=1 


FILE' names 

MODE 








447 

482 


TAPE20 

UNFMT 


WRITES 

32 





265 

312 


TAPE30 

UNFMT 


READS 

69 

EXTERNALS' 

TYPE ARGS .REFERENCES 



COS 

REAL 

1 LIBRARY 

242 

243 


EOF 

REAL 

1 

70 

104 


SIN 

HEAL 

1 LIBRARY 

242 

243 

STATEMENT LABELS 


DEF LINE 

REFERENCES 


0 

10 


49 

34 


0 

11 


48 

40 


0 

12 


46 

•44 


1440 

20 


441 

65 

224 

0 

30 


219 

173 


0 

40 


244 

234 


0 

41 


243 

240 


722 

45 


259 

247 

256 

0 

47 


284 

280 


0 

48 


283 

281 


0 

49 


289 

288 


0 

50 


437 

298 


u 

55 


329 

326 


0 

80 


507 

446 


1660 

85 


506 

481 

490 

76 

200 


55 

27 


114 

205 


65 

61 


142 

207 


85 

81 


144 

210 


88 

71 


222 

220 


103 

112 


245 

230 


114 

109 


272 

300 


126 

119 

120 

336 

310 


137 

132 


437 

320 


168 

164 


472 

330 


188 

181 

182 

474 

331 


191 

183 


476 

332 


193 

184 


500 

333 


195 

185 


503 

340 


198 

186 

192 

514 

350 


203 

190 


526 

360 


211 

203 


536 

370 


217 

214 


545 

400 


229 

121 


712 

450 


253 

.248 


771 

460 


271 

267 


1116 

495 


315 

300 

313 

1076 

497 


311 

306 


0 

500 

INACTIVE 

324 



1150 

510 


337 

332 


1161 

520 


342 

337 


1167 

530 


347 

342 


0 

540 

INACTIVE 

349 



1203 

550 


354 

349 


1211 

560 


359 

347 

354 

1222 

570 


364 

359 


0 

580 

INACTIVE 

366 
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16.31.29. 

PAGE 

15 

37 

42 

46 

56 

130 

163 

213 

432 

459 

489 

MOTION 

26 

522 


103 

111 

154 

229 

MOTION 

67 


282 

283 




' 


282 

283 







504 


194 
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PAGE 
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VARIABLES SN 

TYPE 

RELOCATION 














213 

243 

DEFINED 

165 





370 

SB 

LOGICAL 


POPCOM 

REFS 

15 

24 






540 

SC 

INTEGER 

ARRAY 

60PC0M 

REFS 

11 

22 

42 

43 

51 

52 

74 






75 

100 

112 

114 

126 

127 

136 

137 






149 

150 

183 

188 

189 

192 

203 

215 






216 

217 

256 

DEFINED 

165 




16150 

SCN 

INTEGER 

ARRAY 

GENCOM 

REFS 

8 

20 

44 

184 




3 

SOP 

INTEGER 


GENCOM 

REFS 

8 

20 






1061 

SP 

REAL 


GOPCOM 

REFS 

14 

22 

102 

103 

112 

114 







DEFINED 

82 







623 

SREF 

REAL 

ARRAY 

GOPCOM 

REFS 

13 

22 

46 

142 

143 

144 

145 






146 

147 

184 

233 

234 

235 








DEFINED 

165 







1063 

TARM 

REAL 


GOPCOM 

REFS 

14 

22 

106 

107 

112 

114 







DEFINED 

82 







354 

THETA 

REAL 


POPCOM 

REFS 

18 

24 

45 

100 




5 

TIT1 

INTEGER 

ARRAY 

POPCOM 

REFS 

16 

24 






247 

TIT2 

INTEGER 

ARRAY 

POPCOM 

REFS 

16 

24 






16156 

VBT 

INTEGER 

ARRAY 

GENCOM 

REFS 

9 

20 

243 





13200 

WAL 

REAL 

ARRAY 

GENCOM 

REFS 

10 

20 






14564 

WCL 

REAL 

ARRAY 

GENCOM 

REFS 

10 

20 






152 

WGI 

LOGICAL 

ARRAY 

GENCOM 

REFS 

7 

20 

172 





6 

WGR 

LOGICAL 

ARRAY 

GENCOM 

REFS 

7 

20 






70 

WGS 

LOGICAL 

ARRAY 

GENCOM 

REFS 

7 

20 






234 

WGW 

LOGICAL 

ARRAY 

GENCOM 

REFS 

7 

20 






5 

WOP 

INTEGER 


GENCOM 

REFS 

8 

20 






361 

xc 

REAL 


POPCOM 

REFS 

19 

24 

DEFINED 

83 




1064 

XCN 

REAL 


GOPCOM 

REFS 

14 

22 

DEFINED 

82 




365 

XR 

RE i > . 


POPCOM 

REFS 

19 

24 

DEFINED 

83 




1054 

YL - ^ 

RE> <_ 


GOPCOM 

REFS 

13 

22 

DEFINED 

66 




356 

YR 

REAL 


POPCOM 

REFS 

18 

24 

DEFINED 

67 




FILE NAMES 

MODE 












OUTPUT 

FMT 


WRITES 

37 

44 

. 45 

46 

51 

52 

71 

72 





74 

75 

78 

112 

114 

124 

125 

126 

127 





136 

137 

149 

150 

154 

155 

178 

184 

188 





189 

192 

197 

212 

213 

215 

216 

217 

218 





243 

245 , 

252 

267 

273 

274 

276 




TAPE20 

UNFMT 


READS 

29 

66 

82 

165 

169 

MOTION 

27 



TAPE50 

UN FMT 


WRITES 

170 

READS 

220 

MOTION 

163 

204 




VARIABLES 

USED AS 

FILE NAMES, 

SEE ABOVE 









EXTERNALS 

TYPE 

ARCS 

REFERENCES 










CHEAD 


0 

40 

181 









SYNC 


1 

31 









STATEMENT LABELS 


DEF LINE REFERENCES 








0 

10 


279 

26 









437 

20 


159 

30 

31 

148 

153 






0 

30 


119 

65 









0 

35 


110 

109 









225 

40 


118 

81 

111 








0 

45 


135 

134 









1013 

60 


270 

162 

1/2 

256 

266 






0 

62 


170 

168 









725 

65 


249 

206 

242 








0 

67 


240 

237 


-3. 
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FTN 4.2+75060 07/29/81 16.31.57. 


JA= 3 
NF= 3 
NL= 4 
RC3) = PD 
RC4)= B . 

GO TO 700 

C AFT FUSELAGE 

860 IFINSA.E8.12) GO TO 880 

IF(.NOT.WGWCIO)) GO TO 870 

C TOTAL TAIL LOADS - VERTICAL 

PRINT 8600 

-TOT(I) = WAL(IC,3,1) 

LTOTC2) = WAL(IC,3,1) * XHT 
CTOTC1) = LTOTC1) / 18*SWT) 

CTOTI2) = LTOTC2) / C8*SWT*BWT) 

WAL(IC,10,4) = WAL(IC,10,4) + LTOTO) 

WAL(IC,10,5) = WAL(IC,10,5) + LT0T(2) 

PRINT 8601, WAL(IC,3,1),XHT,CTOT(1),CTOT(2),LTOT(1),LTOT(2) 
LT0TI1) = WAHIC,3,4) 

LTOTC2) = WAL(IC,3,4) * XHT 
CTOT(I) = LTOT(I) / (8*SWT) 

CTOTI2) = LT0TC2) / (8*SWT*BWT) 

WAL(IC,10,4) = WAL(IC,10,4) + LTOT(I) 

WAL(IC,10,5) = WALCIC,10,5) + LTOT(2) 

PRINT 8602, WALUC,3,4),XHT,CT0T(1),CT0TC2),LT0T(1),LT0T(2) 

LT0T12) = WAL(IC,3,3) * 1-1.0) 

CTOT12) = LT0TC2) / (8*SWT*BWT) 

WAL(IC,10,5> = WALUC.10,5) + LTOTI2) 

PRINT 8603, WAL(IC,3,3>,CT0TC2),LT0T(2) 

LT0TC2) = WAL(IC,3,6> * (-1.0) 

CT0TC2) = LT0TI2) / (8*SWT*BWT) 

WAL(IC,10,5) = WAL(IC,1 0,5) + LT0TC2) 

PRINT 8604, WALUC,3,6),CT0T(2),LT0T(2) 

WCL(IC,10,4) = WAL(IC,10,4) / (8*SWT) 

WCLCIC,10,5) = WAL(IC,1 0,5) / (8*SWT*BWT) 

WCL(IC,1 1 ,4) = WCLUC,10,4)+WCHIC, 9,4) 

WCLCIC,11,5) = WCLIIC,10,5)+WCLUC, 9,5) 

WAL(IC,11,4> = WAL(IC,10,4)+HAUIC, 9,4) 

HAL(IC,1 1 ,5) = WAL(IC,10,5)+WAL(IC, 9,5) 

PRINT 8605, HCL(IC,10,4) ,WCL(IC,10,5) ,WAL(IC,10,4) ,WAL(IC,10,5) 

PRINT 8606, WCLUC,11,4>,WCLIIC,11,5),WALUC,11,4),WAUIC,11,5) 

8600 FORMAT (*0*,T1 5, *TAIL INDUCED LOADS V FACTOR B FACTOR *, 

1 *T FACTOR*/) 

8601 F0RMATCT15,*LHT V*,-3PF12.3,0P,* KIPS*,5X,* 1 .00*,4X,F6.2,5X, 

1 * - *,2F10.6,6X,*- *,-3P,F11.3,F13.3,8X,*-*) 

8602 F0RMAT(T15,*RHT V*,-3PF1 2.3,0P,* KIPS*,5X,* 1.00*,4X,F6.2,5X, 

1 * - *,2F10.6,6X,*- *,-3P,F11.3,F13.3,8X,*-*) 

8603 FORMAT (T15,*LHT T*,-3PF12.3,0P,* IN-KIPS*,5X,* - *,5X,*-1 .00*, 

1 5X,* - *,6X,*- *,F10.6,6X,*- *,7X,*- *,-3PF13.3,8X,*-*) 

8604 FORMAT CT15,*RHT T*,-3PF12.3,0P,* IN-KIPS»,5X,* - *,5X,*-1 .00*, 

1 5X,* - *,6X,*- *, F10.6,6X,*- *,7X,*- *,-3PF13.3,8X,*-*) 

8605 FORMAT l*0*,*WLN= 10* ,6X,*TOTAL TAIL LOADS ADDING TO AFT *, 

1 *FUSEHGE*,T71,2F10.6,6X,*- *,-3P,F11.3,F13.3,8X,*-*) 

8606 F0RMAT(*O*,*VLN= 11* ,6X,*T0TAL LOADS ON AFT FUSELAGE - *, 

1 *VERTICAL*,T71,2F10.6,6X,*- *,-3P,F11 ,3,F13.3,8X,*-*) 

C AFT FUSELAGE - LATERAL RECYCLE 
870 IFC.N0T.WGWC12)) GO TO 400 
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SUBROUTINE GOPSR 


FTN 4.2+75060 


07/29/81 16.31.29. 


SUBROUTINE GOPSR 

C CREATES SURFACE/AXIS DEFINITION FILE 
C 

INTEC ER CID(20),UID(20),U0PT,U0N,NRB(2),NB(2) 

INTEC ER IFN,IBTC,NW,NCP,ICBN,IBN,NIB,NV,J J,TNP(50),NLP 
REAL MN,DUM,XI,YZ,ZZ,TN,TND,XLE,XTE,TBL,XCP(100),RCP(100) 

REAL DRDX(100),DYDX(100),DZDX(100),XFWD,XAFT,XMR,MRC,DX,XCT,TA 
REAL YIN,ZIN,YQUT,ZOUT,PC (200) ,XA(8,200) , YA(6,200) ,ZA (6,200) 

REAL AP(200),CB (200) ,TC (6,200) ,XN(6,200),YN(6,200),ZN(6, 200) 

REAL XAZ, YAZ/ LA/LAD/TYL (50) , Sf (3) /XT (3) , YT(3) ,X (5) , Y (5) 

LOGICAL WGR (50) ,WGS (50) /WGI (50) ,WGW(14) /RS 

INTEGER GOP,POP/ROP/SOP,IOP,WOP,AC(2,2),NC/NSB/LRVL(4),SCN(2) 

INTEGER LRC (3) ,VBT(3) 

REAL .RD(20/9),FAL(9/50/6),FCL (9/50,6) /WAL(9,14,6)/WCL(9/14/6) 

INTEGER NSAD/N/SANAME (4,50) ,SABODY (2,50) ,BTC (50) ,SC (50) ,NR 

INTEGER RN/NP/PN(2),NALD,NT,CN/CL/CT 

REAL ISREF (50) ,BREF(50),CREF(50),CAVG,ETA,YL,CR0W 

REAL !SP/BARM/TARM,XCN,C(3) 

COMMON/GENCOM/GOP/POP/ROP/SOP/IOP/WOP/WGR/WGS/WGI/WGW/AC/NC/NSB, 

1 * RD/LRVL/FAL/FCL,WAL/WCL,SCN/IC/LRC/VBT/RS 

COMMqN/GOPCOM/NSAD,N,SANAME,SABODY,BTC,SC,NR,SREF,BREF,CREF,CAVG, 
1 ! RN/ETA/YL/NP/CROW,PN/SP/BARH/TARM/XCN/NALD/NT/CN,CL/CT/C 

DATA CAVG/1.0/, ETA/0.0/, CROW/O. 0/,XCN/0.0/ 

DATA U0N/"INCH f 7 
REWIND 20 

1F(GQP.GT .2) GO TO 200 

C 

C READ SURFACE/AXIS DATA IF ON CARDS 
C 

READ(1 ,1 000) NSAD,NALD 

WRITE (20) NSAD,NALD 

1000 FORMAT (I2/28X/I2) 

DO 10 1=1 ,NSAD 

READ (1,1001) N, (SANAME(L.N) ,L=1 ,4), (SABODY (L,N) ,L=1,2), 

1 BTC(N),S:(N),NR,SREF(N),8REF(N),CREF(N),CAVG 

WRITEC20) N, (SANAME(L/N) ,L=1 ,4) , (SABODY (L,N) ,L=1 ,2) , 

1 ' BTC (N),SC (N) /NR/SREF (N),BREF(N) ,CREF (N) ,CAVG 

1001 FORMAT (12, 2X, 4A4, 2X, 2A4, 13/13, 14, 4 FI 0.0) 

DO 11 J=1,NR 

READ(1,10Q2) RN/ETA/YL/NP/CROW 

WRIT£(20) RN/ETA/YL/NP/CROW 

1002 FORMAT(I2/F8.0/F10.0,8X/I2,F10.0) 

DO 12 K=1,NP 

READ (1,1003) PN/SP/BARM/TARM/XCN 

12 WRITE(20) PN/SP/BARM/TARM/XCN 

1003 F0RMAT(2I5,4F10.0) 

11 CONTINUE 

10 CONTINUE 

C CHECK FOR ANY ADDITIONAL LOADS 
GO TO 800 

~C~'~' GR£ATE DATA FROM GDTAPE 


^'20QJ?EAD(1 /lOOOT^NSAD/NALD 
WREC£(20) NSA^NALD^ 

PRINT^OQP/ GOP 


t 



SUBROUTINE GCPSR 


73/74 OPT=1 


STATEMENT LABELS 

DEF LINE 

REFERENCES 


1233 

590 

371 

366 


1244 

600 

376 

364 . 

371 

1252 

610 

380 

376 


1341 

650 

401 

385 

392 

1361 

660 

407 

318 

i/8 

1364 

67(K 

412 

321 vr 


137? 

700 \ 

416 

405 

410 

1424 

710 

432 

417 


1432 

720 

435 

433 


1443 

800 

445 

51 


1373 

850 

481 

461 

477 

1612 

855 

489 

485 


1632 

860 

495 

491 

492 

1636 

870 

498 

493 


1643 

875 

502 

498 


1654 

880 

504 

501 


1666 

990 

512 

70 

104 

1671 

991 

514 

97 

98 



IMASA DFRC 





IWNSA DFRC 



SUBROUTINE IOPSR 

73/74 

OPT-1 

FTN 4.2+75060 

07/29/81 16.31.44. 

PAGE 

9 

STATEMENT LABELS 

DEF LINE REFEREf 

+CES 




0 

69 


265 

263 





60 

200 


65 

36 





111 

250 


77 

70 





115 

300 


i81 

68 





132 

310 


87 

85 





135 

320 


91 

85 





140 

330 


95 

85 





171 

400 


102 

89 

93 




254 

430 


134 

123 





347 

450 


142 

121 





425 

500 


154 

31 





500 

620 


177 

260 





535 

630 


191 

261 





546 

640 


202 

177 

191 




575 

650 


212 

209 

210 




627 

655 


220 

208 

211 




650 

660 


228 

222 





766 

680 


256 

251 





1000 

690 


263 

257 





1016 

800 


272 

161 





1030 

820 


276 

272 





1053 

1000 

FMT 

38 

37 

71 124 154 273 




1102 

1020 

FMT 

47 

44 





1112 

1021 

FMT 

49 

45 





1116 

1022 

FMT 

50 

46 





1133 

1030 

FMT 

53 

51 

74 




1171 

1031 

FMT 

59 

52 

75 




1243 

2000 

FMT 

73 

72 

125 




1260 

2500 

FMT 

79 

78 





1326 

4000 

FMT 

115 

112 





1336 

4001 

FMT 

117 

114 





1362 

4100 

FMT 

128 

126 





1402 

4101 

FMT 

132 

127 





1433 

4300 

FMT 

138 

136 





1450 

4301 

FMT 

140 

137 





1477 

4500 

FMT 

151 

149 





1506 

4501 

FMT 

152 

150 





1525 

5000 

FMT 

156 

155 





1572 

6200 

FMT 

179 

178 

212 




1612 

6250 

FMT 

186 

184 





1640 

6300 

FMT 

193 

188 

215 




1643 

6301 

FMT 

194 

189 

216 




1646 

6302 

FMT 

195 

192 

217 




1654 

6350 

FMT 

198 

197 

218 




1705 

6500 

FMT 

214 

213 





1757 

6700 

FMT 

246 

243 





1767 

6701 

FMT 

248 

245 





2006 

6800 

FMT 

253 

252 





2021 

6900 

FMT 

268 

267 





2036 

8000 

FMT 

275 

274 





2050 

8200 

FMT 

277 

276 





LOOPS 

LABEL 

INDEX 

FROM-TO 

LENGTH 

PROPERTIES 




3 

10 

* IC 

26 279 

1032B 

EXT REFS NOT INNER 




12 

20 

* I 

30 159 

430B 

EXT REFS NOT INNER 




61 

30 

* J 

65 119 

151B 

EXT REFS NOT INNER 




116 

40 

* K 

81 118 

112B 

EXT REFS NOT INNER 














NASA DFRC 


r 




NASA DFRC 
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FTN 4.2+75060 
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NSA=1 2 
IS= 4 
JA= 3 
NF= 3 
NL= 8 
R(3) = B 
R(4) = AB 
R(5) = DA 
R(6) = DRL 
R (7)= PD 
R(8) = B 
60 TO 700 

TOTAL TAIL LOADS - LATERAL 
880 IF(.N0T.WGW(13)) 60 TO 400 

PRINT 8600 

LT0TC1 ) = WAL(IC,6,4) 

LT0TC2) = WAL(IC,6,4) * XVT 
LT0TC3) = WAL(IC,6,4) * ZVT 
CTOT(I) - LTOT(I) / «J*SWT) 

CTOT (2) = LT0TC2) / (Q*SWT*BWT) 

CTOT (3) = LT0TC3) / (Q*SWT*CWT) 

WALUC,13,4) = WAL(IC,13,4) + LT0TC1) 

WAL(IC,13,5) = WAL(IC,13,5) + LT0T(2) 

WAL(IC,13,6) = WAL(IC,13,6) + LT0T(3) 

PRINT 8801, WAL (10,6,4) ,XVT,ZVT,CTOT,LTOT 

LT0T(3) = WALCIC.6,5) 

CTOT (3) = LT0TC3) / (Q*SWT*CWT) 

WAL(IC,13,6) = WAL(IC,13,6) + LT0TC3) 

PRINT 8802, WAL(IC,6,5),CT0T(3),LT0T(3) 

LT0TC2) = WAL(IC,6,6) * (-1.0) 

CTOT (2) = LT0TC2) / (Q*SWT*BWT) 

WAL(IC,13,5) = WAL(IC,13,5) + LT0T(2) 

PRINT 8803, WAL(IC,6,6) ,CT0T(2),LT0T (2) 

LT0TC3) = WAL(IC,3,1) * YHT 
CTOT (3) = LT0TC3) / (Q*SWT*CWT) 

WAL(IC,13,6) - WAL(IC,13,6) + LT0TC3) 

PRINT 8804, WAL(IC,3,1), YHT, CTOT (3),LT0T(3) 

YHT = -(YHT) 

LT0TC3) = WAL(IC,3,4) * YHT 
CTOT (3) = LT0T(3) / (Q*SWT*CWT) 

WAL(IC,13,6) = WAL(IC,13,6) + LT0T(3) 

PRINT 8805, WAL (IC, 3, 4), YHT, CTOT (3),LT0T(3) 
LT0T(3) ^ WAL(IC.3,2) 

CTOT (3) = LT0T(3) / «J*SWT*CWT) 

WAL(IC,13,6) = WAL(IC,13.6) + LT0T(3) 

PRINT 8806, WAL(IC,3,2),CT0T(3),LT0T(3) 

LT0T(3) = WAL(IC,3,5) * (-1.0) 

CT0TC3) = LT0T(3) / (Q*SWT*CWT) 

WALCIC,13,6) = WAL(IC, 13,6) + LT0T(3) 

. PRINT 8807, WAL(IC,3,5),CT0T(3),LT0T(3) 

WCL(IC,13,4) = WAL(IC,13,4) / (Q*SWT) 
WCL(IC,13,5) = WAL(IC,n,5) / (Q*SWT*BWT) 
WCL(IC,13,6) = WAL(IC,:.;L6) / (Q*SWT*CWT) 
WCL(IC,14,4) = WCL(IC,13,4)+WCL(IC,12,4) 
WCL(IC,14,5) = WCL(IC,13,5)+WCL(IC,12,5) 
WCL(IC,14,6) = WCL(IC,13,6)+WCL(IC,12,6) 
WAL(IC,14>4) = WAL (IC, 1 3,4) +WAL(IC, 12,4) 
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SUBROUTINE GOPSR 


73/74 OPT=1 


FTN 


07/29/81 16.31.29. 


60 


65 


70 


75 


80 


85 


90 


95 


100 


105 


110 


2000 FORMAT (*1 */ /I X,*GEOMETRY OPTION =*,12,//) 

PRINT 2001, NSAD 

2001 FORMATC* *,I2,* SURFACE/AXIS DEFINITIONS TO BE COMPUTED*) 

IF (GOP. NE. 4) 60 TO 205 

PRINT 2002 

2002 F0RMAT(*+*;T47,*AND PUNCHED*/) 

PUNC 10C0, NSAD,NALD 

205 DO 2u 1=1, NSAD 
TA= 0.0 
REWIND 30 

C READ GDTAPE HEADER RECORD 

READ (30) CID,UID,IFN,MN,DUM,UOPT,DUM 
IF (EOF (30) .NE.O.O) GO TO 990 

IF(I.NE.I) GO TO 210 

C PRINT GDTAPE INFO AND CHECK UNITS 
PRINT 2050, IFN 

PRINT 2051, CID 

PAINT 2052, UID 

PRINT 2053, UOPT 

2050 FORMAT (* USING FLEX STAB 6D 3 

2051 FORMATC* CASE ID * *,2Q fitif) 

2052 FORMATC* USER ID = jfc?2DA4 /) 




FILE*,I3//) 


2053 FORMATC* UNITS QBTON = *,A4 ///////) 

IFCUCPT.eOonT GO TO 207 


EQJUG 
PRI NT-Z054 

I57F0PMAT(30H ********** WARNING **********, 


— zo: 

1 ///* UNITS OTHER THAN INCHES - PROCEED ANYWAY*///////) 

207 PRINT 2070, NALD 

2070 FORMAT (* *,I2,* ADDITIONAL LOADS TO BE DEFINED*) 

C READ NEXT SURFACE/AXIS DEFINITION 
210 READ (1,2100) N,(SANAME(L,N),L=1,4),($AB0DY(L,N),L=1,2), 

1 BTC(N) , SREF(N),BREF(N),CREF(N) 

21 GO F0RMAT(I2,2X,4A4,2X,2A4,I3,7X, 3F10.0) 

PRINT 2101, N,(SANAME(L,N),L=1,4),(SAB0DY(L,N),L=1,2), 

1 BTC(N), SREFCN) ,BREF(N) ,CREF (N) 

2101 FORMAT (*1*//1X,*SURFACE/AXIS NUMBER =*,I3,6X,*SURFACE/AXIS NAME =* 

1 ,1X,4A4,4X,*GD BODY NAME = *,2A4///* INTEGRATION TYPE CODE =* 

2 ,I3,4X,*SREF =*, F10.3,4X,*BREF =*,F10.3,4X,*CREF =*,F10.3/) 

C . CHECK FOR INPUT ERROR 

IFCN.LT.1 .0R.N.GT.50) GO TO 991 
IF(BTCCN) .LT.1 .OR.BTC(N) .GT.3) GO TO 991 
IFCSREF(N).EQ.O.O) SREF(N)=1.0 

IFCBREF(N) .EQ.O.O) 8REF(N)=1.0 

IF(CREFCN) .EQ.O.O) CREF(N)=1.0 

C READ GDTAPE BODY ID RECORD 

220 READ (30) IBTC,NW,NCP,DUM,ICBN,IBN,NRB,NB,XZ,YZ,ZZ,TN,SC(N) 
IFCE0FC30). NE.O.O) GO TO 990 
C CHECK FOR TRAILER RECORD 

•JJ = IBTC+NW+NCP 
IF(JJ.EQ.O) GO TO 992 
C CHECK FOR MATCH WITH SABODY 

IF(NB(1).EQ.SAB0DY(1,N).A.N8(2).EQ.SAB0DY(2,N)) GO fO 230 
C SKIP GDTAPE BODY DATA RECORD 

READ (30) 

GO TO 2?0 ■ 

C MATCH FOUND 

230 IFCSC(N).NE.O) SC(N)= 1 


***** , ** * ** 
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SUBROUTINE G0PSR 

73/74 
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FTN 4.2+75060 

07/29/81 16.31 

29. PAGE 17 


’ STATEMENT LABELS 

DEF LINE REFERENCES 






3012 

4900 

FMT 

287 

286 







3030 

4901 

FMT 

290 

289 







3042 

4910 

FMT 

294 

293 

309 






3136 

7000 

FMT 

424 

418 







3142 

7001 

FMT 

425 

419 







3152 

7011 

FMT 

427 

420 







3156 

7012 

FMT 

428 

421 







3162 

7013 

FMT 

429 

422 







3166 

7019 

FMT 

430 

423 







3231 

8000 

FMT 

449 

447 

478 






3265 

8200 

FMT 

465 

462 







3311 

8201 

FMT 

468 

464 







3331 

8202 

FMT 

472 

470 







3335 

8203 

FMT 

473 

471 







3344 

8300 

FMT 

475 

474 

496 






3402 

8500 

FMT 

483 

482 

505 






3431 

8700 

FMT 

500 

499 







3452 

8750 

FMT 

503 

502 





\ 


3477 

9900 

FMT 

517 

512 







3506 

9910 

FMT 

518 

514 







3515 

9920 

FMT 

519 

516 


— 

— 


V 


LOOPS 

LABEL 

INDEX 

FROM-TO 

LENGTH 

PROPERTIES 





13 

10 

* I 

34 49 

63B 


EXT REFS NOT INNER 




55 

11 

* J 

40 48 

16B 


EXT REFS NOT INNER 




62 

12 

* K 

44 46 

7B 


EXT REFS 





115 

20 

* I 

65 441 

1326B 


EXT REFS 

EXITS NOT INNER 




400 


* L 

154 

4B 


EXT REFS 





406 


* L 

154 

14B 


EXT REFS 





444 

30 • 

* J 

173 219 

77B 


EXT REFS 





550 


* M 

229 

61B 


EXT REFS NOT INNER 




555 


* L 

229 

14B 


EXT REFS 





577 


* L 

229 

14E 


EXT REFS 





633 

40 

* K 

234 244 

46B 


EXT REFS NOT INNER 




643 

41 

* J 

240 243 

33B 


EXT REFS 





706 

45 

J 

247 259 

16B 

OPT 






1000 

47 

* K 

280 284 

33B 


EXT REFS NOT INNER 




1001 

48 

* J 

281 283 

27B 


EXT REFS 





1035 

49 

* J 

288 289 

1 1B 


EXT REFS 





1055 

50 

* J 

298 437 

362B 


EXT REFS NOT INNER 




1140 

55 

K 

326 329 

2B 

INSTACK 






1446 

80 

* I 

446 507 

21 7B 


EXT REFS 

EXITS NOT INNER 




1576 

85 

* J 

481 506 

65B 


EXT REFS 

EXITS 




I COMMON BLOCKS 

LENGTH 

MEMBERS 

BIAS NAME (LENGTH) 




V 



GENCOM 

7282 


0 GOP 

Cl) 

i 

POP (1) 

2 ROP 

CD \ 






3 SOP 

CD 

4 

XOP (1) 

5 WO' 

CD 






6 WGR 

C50) 

56 

WGS (50) 

106 WGI 

(50) 





156 WGW 

(14) 

170 

AC (4) 

174 NC 

(1) 





175 MSB 

Cl) 

176 

RD (180) 

356 LRVL 

(4) 





36'' FAL 

C2700) 

3060 

FCL (2700) 

5760 WAL 

(756) 





65' 

^ WCL 

(756) 

7272 

SON (2) 

7274 IC 

(1) 





7275 LRC 

(3) 

7278 

VBT (3) 

7281 RS 

(1) 



GOPCOM 

573 


0 NSAD 

CD 

1 

N (1) 

2 SANAME (200) 





202 SABODY 

o 

o 

302 

BTC (50) 

352 SC 

(50) 





402 NR 

(1) 

403 

SREF (50) 

453 BREF 

(50) 





503 CREF 

(50) 

553 

CAVG (1) 

554 RN 

(1> 
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SUBROUTINE I0PSR 

73/74 0PT=1 



FTN 4 

2+75060 

07/29/81 16.31. 

44. PAGE 10 

LOOPS LABEL INDEX 

FROM-TO LENGTH 

PROPERTIES 





212 35 L 

109 110 3B 

INSTACK 






261 45 L 

134 135 2B 

INSTACK 






267 * L 

136 12B 


EXT 

REFS 




302 * L 

136 12B 


EXT 

REFS 




321 * L 

137 12B 


EXT 

REFS 




334 * L 

137 • 12B 


EXT 

REFS 




372 * L 

149 12B 


EXT 

REFS 




411 * L 

150 12B 


EXT 

REFS 




444 60 * I 

162 270 352B 


EXT 

REFS NOT INNER 



466 62 * J 

168 170 7B 


EXT 

REFS 




557 65 * J 

206 249 151B 


EXT 

REFS NOT INNER 



676 67 * K 

237 240 1 1B 

OPT 






734 * K 

252 - 14B 


EXT 

REFS 




751 * K 

252 14B 

v 

EXT 

REFS 




1005 69 K 

263 265 3B 

INSTACK 






COMMON BLOCKS LENGTH 

MEMBERS - BIAS NAME (LENGTH) 






* GENCOM 7282 

0 GOP 

(1) 


1 POP 

(1) 

2 ROP 

(1) 


3 SOP 

(1) 


4 IOP 

(1) 

5 WOP 

(1) 


6 WGR 

(50) 


56 WGS 

(SO) 

106 WGI 

(50) 


156 WGW 

(14) 


170 AC 

(4) 

174 NC 

(1) 


175 NSB - 

(1) 


176 RD 

(180) 

356 LRVL 

(4) 


360 FAL 

(2700) 


3060 FCL 

(2700) 

5760 WAL 

(756) 


6516 WCL 

(756) 


7272 SCN 

(2) 

7274 IC 

(1) 

" ^eOPCOM 573 

7275 LRC 
O'-NSAD 
202 SABODY 
s 402 NR 

503 CREF 

(3) 

(1) 

(100) 

(1) 

(50) 


7278 VBT 
IN 

302 BTC 
403 SREF 
553 CAVG 

(3) 

(1) 

(50) 

(50) 

(1) 

7281 RS 
2 SANAME 
352 SC 
453 BREF 
554 RN 

(1) 

(200) 

(50) 

(50) 

(1) 

^ . 



555 ETA 

(1) 


556 YL 

(1) 

557 NP 

(1) 


558 CROW 

(1) 


559 PN 

(2) 

561 SP 

(1) 


562 BARM 

(1) 


563 TARM 

CD 

564 XCN 

(1) 


565 NALD 

(1) 


566 NT 

(1) 

567 CN 

(D 


568 CL 

(D 


569 CT 

11) 

570 C 

(3) 

POPCOM 249 

0 DN 

(1) 


1 DUMMY 

(4) 

5 TIT1 

(162) 


167 TIT2 

(18) 


185 NTB 

(1) 

186 MR 

(1) 


187 Ml 

(9) 


196 A1 

(9) 

205 B1 

(9) 


214 Q1 

(9) 


223 I NTB 

(1) 

224 IMR 

(9) 


233 CPBODY 

(2) 


235 NAF 

(1) 

236 THETA 

(1) 


237 INAF 

(1) 


238 YR 

(1) 

239 NPT 

(1) 


240 INPT 

(1) 


241 XC 

(1) 

242 CPS 

(1) 


243 CPR 

(1) 


244 CPL 

(1) 

245 XR 

(1) 


246 MRN 

(2) 


248 SB 

(1) 



STATISTICS 








PROGRAM LENGTH 

2105B 1093 







CM LABELED COWON LENGTH 

176508 8104 








~ 


f 
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345 
350 
355 
360 
365 
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WAL(IC,14,5) = WAUIC,13,5)+WALUC,12,5) 

WALCIC.14,6) = WAL(IC,13,6)+WALtIC,12,6) 

PRINT 8808, tWCLCIC,13,J),J=4,6),CWALUC,13,J),J=4,6> 

PRINT 8809, tWCLCIC,14,J),J=4,6),(WALtIC,14,J),J=4,6) 

8801 FORMAT (T15,*VTR V*,-3PF12.3,0P,* KIPS*,5X,* 1 ,00*,4X,F6.2,4X, 

1 F6.-2,3F10.6,-3P,F11 .3, FI 3. 3, FI 2. 3) 

8802 FORMAT (T15,*VTR B*,-3PF12.3,0P,* IN-KIPS*,2(5X,* - *),6X,*1.00* 

1 ,2C6X,*- *),F10.6,7X,*- *,9X,*- *,-3PF12.3) 

8803 FORMAT tT15,*VTR T*,-3PF12.3,0P,* IN-KIPS*,5X,* - *,5X,*-1 .00*, 

1 5X,* - *,6X,*- *,F10.6,6X,*- *,7X,*~ *,-3PF13.3,8X,*-*) 

8804 FORMAT CT15,*LHT V*,-3PF12.3,0P,* . KIPS*,2(5X,* - *),4X,F6.2, 

1 2C6X,*- *),F10.6,7X,*- *,9X,*- *,-3PF12.3) 

8805 FORMAT CT1 5,*RHT V*,-3PF12.3,0P,* KIPS*,2(5X,* - *),4X,F6.2, 

1 2t6X,*- *),F10.6,7X,*- *,9X,*- *,-3PF12.3) 

8806 F0RMATIT15,*IHT B*,-3PF12.3,0P,* IN-KIPS*,2t7X,*- *),5X,* 1.00*, 

1 2t6X,*- *),F10.6,7X,*- *,9X,*- *,-3PF12.3) 

8807 FORMAT CT15,*RHT B*,-3PF12.3,0P,* IN-KIPS*,2t7X,*- *) ,5. v ,*-1 .00*, 

1 2C6X,*- *),F10.6,7X,*- *,9X,*- *,-3PF12.3) 

8808 FORMAT t*0*,*WLN= 13* ,6X,*T0TAL TAIL LOADS ADDING TO AFT *, 

1 *FUSELAGE*,T71,3F1D.6,-3P,F11 .3, FI 3. 3, FI 2. 3) 

8809 FORMAT C*0*,*WLN= 14* ,6X,*T0TAL LOADS ON AFT FUSELAGE ■■ *, 

1 * L*TERAL*,T71 ,3F10.6,-3P,F1 1.3, FI 3. 3, FI 2. 3) 

GO TO 400 
30 CONTINUE 
RETURN 
END 
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JJ = SC(N) + 1 

PRINT 2300/ IBTC,SCNtjJ) 

2300 FORMAT (* BODY TYPE CODE =*/l3/11X,*SYMMETRY CODE = *,A3 /) 

C TEST FOR BODY/INTEGRATION TYPE 

IFCIBTC.EQ.1 .A. BTC CN) .EQ.1) GO TO 300 

IFdBTC.EQ.I .A.BTC(N) .EQ.2) GO TO 300 

IFCT.BTC.EQ.3.A.BTC (N) .EQ.3) GO TO 400 

GO TO 991 
C 

C SLENDER BODY TYPE 
C 

300 NR = 1 

PRINT 3000/ NR 

3000 FORMAT (* NUMBER OF ROWS =*,I3//) 

C WRITE AND PUNCH SURFACE/AXIS DATA 

WRITE (20) N/ (SANAME (L/N) /L=1 /4) / < S ABODY ( L/N) /L=1 /2) / 

1 BTC (N) ,SC (N) ,NR/SREF (N) /BREF(N) /CREF (N) /CAVG 

IF(G0P.NE.4) GO TO 310 

PUNCH 3010/ N/(SANAME(L,N)/L=1/4)/(SAB0DY(L/N)/L=1/2)/ 

1 BTC (N) /SC (N) /NR/SREF(N) /BREF(N) /CREF (N) 

3010 F0RMATU2/2X/4A4/2X/2A4/I3/I3/I4/3F1 0.3) 

C READ AND PRINT INTEGRATION AXIS DATA 
310 READ (1 >3100) XFWD/XAFT/XMR/MRC 

3100 FORMAT (4F10.0) 

PRINT 3101/ XFWD/XAFT,XMR 

3101 FORMAT (* INTEGRATION AXIS DEFINITION*/ 

1 T31 /* FORWARD LIMIT AT XR =*/Fl0.3/ 

2 T31>* AFT LIMIT AT XR =*/F10.3/ 

3 T31/*M0MENTS SUMMED ABOUT XR =*/Fl0.3) 

IF(MRC.GT.O.O.A.BTCCN).EQ.I) PRINT 3102 

IF(MRC.LT. 0.0. A.BTC(N). EQ.1) PRINT 3103 

IF(MRC.GT.O.O.A.BTCCN) .EQ.2) PRINT 3104 

IF(MRC .LT.O.O.A.BTC (N) .EQ.2) PRINT 3105 

3102 F0RMAT(*+*/T73/*P0SITIVE - NOSE UP*//) 

3103 F0RMAT(*+*/T73/*P0SITIVE - TAIL UP*//) 

3104 F0RMAT(*+*/T73/*P0SITIVE - NOSE RIGHT*//) 

3105 FORMAT (*+*/T73/*P0SITIVE - TAIL RIGHT*//) 

C READ SLENDER BODY DATA RECORD 

NIB = (NW-3-5*NCP ) 12 

READ (30) (XLE,XTE/L=1 /NIB) / YZ/ZZ/TBL/ 

1 (XCP(L)/RCP(L)/DRDX(L)/DYDX(L)/DZDX(L) /L-1 /NCP) 

C COMPUTE ROW DATA <t 
RN = 1 
YL = YZ 
NP =• NCP 

C PRINT/WRITE/PUNCH ROW DATA 
PRINT 3110/ YL.NP 

3110 FORMAT (* ROW DATA*/7X/*Y =*/F10.3/6X/*NUMBER OF PANELS =*/I3//) 
WRITE(20) RN/ETA/YL/NP/CROW 

IF(G0P.NE.4) GO TO 320 
PUNCH 3111. RN/YL/NP 

3111 F0RMAT(I2/8X/F10.3/8X/I2> 

C COMPUTE PANEL DATA 

320 PN(1) = 1 
TARM =0.0 
PRINT 3200 

3200 FORMAT (* PANEL DATA*//* INDEX*/7X/*AREA-IN2*,8X/« ! ffiARM-lN*/8X/ 


XR =*/F1 0.3/ 
XR =*/ FI 0.3) 
PRINT 3102 
PRINT 3103 
PRINT 3104 
PRINT 3105 



SUBROUTINE GOPSR 73/74 OPT=1 

COMMON BLOCKS LENGTH MEMBERS - BIAS NAME (LENGTH) 

555 ETA (1) 

558 CROW (1) 

562 BARM (1) 

565 NALD (1) 

. ' 568 CL (1) 

STATISTICS 

PROGRAM LENGTH 27333B 11995 

CM LABELED COMMON LENGTH 17257B 7855 
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556 

YL 

(1) 

557 

NP 

(1) 

559 

PN 

(2) 

361 

SP 

(1) 

563 

TARM 

(1) 

564 

XCN 

(1) 

566 

NT 

(1) 

567 

CN 

(1) 

569 

CT 

ti) 

570 

C 

(3) 
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5 


10 


15 


20 . 


25 


30 


35 


40 


45 


50 


55 


C 

C 

c 



c 


20 

10 

Cx 

*200 


300 


C 


40 

30 

400 


SUBROUTINE SYNC (M), RETURNS (R1,R2) 

MATCHES PROPER CPBODY WITH DESIRED SURFACE/AXIS 

LOGICAL &GRC50) ,WGS (50) ,WGI (50) ,WGW (1 4) ,RS 

INTEGER GOP,POP,ROP,SOP,IOP,WOP,AC (2,20 ,NC,NSB,LRVL(4) ,SCN (2) 

INTEGER LRC(3),VBT(3) 

REAL RD(20,9),FAL(9,50,6),FCL(9,50,6) ,WAL(9,14,6),WCL(9,14,6) 

INTEGER NSAD,N,SANAME(4,5O),SAB0DY(2,50),BTC(50),SC(50),NR 

INTEGER RN,NP,PN(2),NALD,NT,CN,CL,CT 

REAL SREF (50) ,BREF (50) ,CREF (50) ,C.*VG, ETA, YL, CROW 

REAL SP,BARM,TARM,XCN,C(3) 

LOGICAL SB 

INTEGER DN, DUMMY (4) ,TIT1 (18,9) ,TIT2(1 8) ,INTB,IMR(9) ,CPBODY (2) 
INTEGER INAF,INPT,MRN(2) 

REAL NTB,MR,M1 (9),A1 (9),B1 (9),Q1 (9) ,NAF, THETA, YR,NPT 
REAL XC,CPS,CPR,CPL,XR 

COMMON/GENCOM/GOP,POP,ROP,SOP,IOP,WOP,WGR,WGS,WGI,WGW,AC,NC,NSB, 
RD,LRVL,FAL,FCL,WAL,WCL,SCN,IC,LRC,VBT,RS 
COMMON/GOPCOM/NSAD,N,SANAME,SABODY,BTC,SC,NR,SREF,BREF,CREF,CAVG, 
RN,ETA,YL,NP,CROW,PN,SP,BARM,TARM,XCN,NALD,NT,CN,CL,CT,C 
COMMON/POPCOM/DN, DUMMY, TIT1 ,TIT2,NTB,MR,M1 ,A1 ,B1 ,Q1,INTB,IMR, 

CPBODY ,NAF, THETA, INAF,YR,NPT,INPT,XC, CPS, CPR,CPL,XR,MRN, SB 
READ (20) N, (SANAME (L,N) ,, L=1 , 4) , ( S ABODY (L,N),L=1 ,2) , 

BTC (N) ,SC (N) ,NR,SREF (N) ,BREF(N) , CREF (N) , CAVG 
IF(M.EQ.1 .AND.WGR(N)) GO TO 200 

IF(M.EQ.2.AND.WGS(N)) GO TO 200 

IFCM.EQ.3.AND.WGKN)) GO TO 200 

SKIP THIS SURfACE/AXIS DEFINITION 
DO 10 1=1, NR 

READ (20) RN,ETA,YL,NP,CROW 

DO 20 J=1 ,NP 

READ(20) PN,SP,BARM,TARM,XCN 

CONTINUE 

RETURN R1 

WANT SURFACE - SEARCH FOR MATCHING CPBODY 
REWIND DN 

READ(DN) (TIT1 (J,IC),J=1,18) 

READ(DN) TIT2 

READ(DN) NTB,MR,M1 (IC),A1 (IC),B1 (IC),Q1 (IC) 

IMR(IC)= MR 

READ(DN) CPBODY, NAF, THETA 

IF(EOF(DN) .EQ.O.O) GO TO 400 

MATCHING CPBODY NOT FOUND - SKIP SURFACE/AXIS DATA 
DO 30 1=1, NR 

READ (20) RN, ETA, YL,N^, CROW 

DO 40 J=1 ,NP 

READ(20) PN,SP,BARM,TARM,XCN 

CONTINUE 

RETURN R2 

IF (CPBODY (1 ) . EQ.SABODY (1 ,N) .AND. CPBODY (2) -EQ. S ABODY (2,N) ) RETURN 

SKIP CPBODY 

lNAF= NAF 

DO 50 I=1,INAF 

READ(DN) YR,NPT 

INPT= NPT 

DO 60 J=1 ,INPT 
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DEF LINE 

REFERENCES 










i 

WOPSR 

1 

23 

367 










VARIABLES SN 

TYPE 

RELOCATION 










2354 

A 

REAL 



REFS 

62 

94 

113 

147 

156 









DEFINED 

34 








2360 

AB 

REAL 



• REFS 

100 

102 

132 

292 

DEFINED 

38 



252 

AC 

INTEGER 

ARRAY 

GENCOM 

REFS 

8 

11 







2372 

AD 

REAL 



REFS 

95 

115 

DEFINED 

82 





2355 

B 

REAL 



REFS 

62 

99 

101 

116 

131 

233 

291 







296 

DEFINED 

35 







2344 

BWT 

REAL 



REFS 

24 

69 

79 

81 

172 

191 

243 







250 

255 

259 

263 

305 

316 

337 








DEFINED 

21 

48 







2522 

CPER 

REAL 

ARRAY 


REFS 

6 

27 

104 

123 

170 

177 

189 







207 

208 

209 

210 

219 

220 

221 

222 







-223 

DEFINED 

26 

51 

104 

123 

207 

208 







209 

210 

219 

220 

221 

222 

223 



2616 

CTOT 

REAL 

ARRAY 


REFS 

6 

171 

172 

173 

175 

177 

2*246 







2*253 

257 

261 

310 

314 

318 

322 

327 







331 

335 

DEFINED 

170 

242 

243 

249 

250 







255 

259 

304 

305 

306 

312 

316 

320 







325 

329 

333 







2345 

CWT 

REAL 



REFS 

24 

69 

80 

82 

173 

192 

306 







312 

320 

325 

329 ' 

333 

338 









DEFINED 

21 

48 







2361 

DA 

REAL 



REFS 

65 

117 

133 

293 

DEFINED 

39 



2362 

DE 

REAL 



REFS 

65 

114 

DEFINED 

40 





2445 

DES 

INTEGER 

ARRAY 


REFS 

5 

27 

177 

DEFINED 

26 

51 


s 

2364 

DRL 

REAL 



REFS 

65 

136 

294 

DEFINED 

42 




2363 

DRU 

REAL 



REFS 

65 

135 

DEFINED 

41 

• - 




2365 

DSL 

REAL 



REFS 

65 

96 

118 

134 

217 









DEFINED 

43 








2366 

DSR 

REAL 



REFS 

65 

119 

, 134 

205 

216 









DEFINED 

44 








550 

FAL 

REAL 

ARRAY 

GENCOM 

REFS 

10 

11 







5764 

FCL 

REAL 

ARRAY 

GENCOM 

REFS 

10 

11 







0 

GOP 

INTEGER 


GENCOM 

REFS 

8 

11 







2352 

I 

INTEGER 



REFS 

3*26 

3*27 

3*51 

2*104 

2*123 

2*170 

4*177 







2*207 

2*208 

2*209 

2*210 

2*219 

2*220 

2*221 

2*222 







2*223 

DEFINED 

25 

50 

103 

122 

168 . 

206 







218 









16152 

IC 

INTEGER 


GENCOM 

REFS 

11 

34 

35 

36 

37 

2*38 

39 







40 

41 

42 

43 

44 

62 

3*65 

79 







80 

81 

82 

2*175 

2*176 

2*180 

2*189 

2*190 







2*191 

2*192 

2*193 

240 

241 

2*244 

2*245 

246 







247 

248 

. 2*251 

2*252 

253 

254 

2*256 

257 







258 

2*260 

261 

2*262 

2*263 

3*264 

3*265 

3*266 







3*267 

4*268 

4*269 

301 

302 

303 

2*307 

2*308 







2*309 

310 

311 

2*313 

314 

315 

2*317 

318 







319 

2*321 

322 

324 

2*326 

327 

328 

2*330 







331 

332 

2*334 

335 

2*336 

2*337 

2*338 

3*339 







3*340 

3*341 

3*342 

3*343 

3*344 

2*345 

2*346 








DEFINED 

33 
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INTEGER 


GENCOM 

REFS 

8 
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175 

180 


185 


190 


195 


200 


205 


210 

215 

220 

225 


1 *TARM-IN*/) 

DO 30 J=1,NP 
PNC2) = J 

C COMPUTE PANEL EDGES 

IFCJ.LT.NP) DX- XCPCJ+D-XCPCJ) 

IFCJ.EQ.NP) DX= XCP(J)-XCPCJ-I) 

XLE = XCPCJ)-CDX/2.0) 

XTE = XCPCJ)+(DX/2.0) 

C DETERMINE PANEL/AXIS INTERSECTION TYPE 

•IF (XLE.GE.XAFT) GO TO 330 

IF(XTE.LE.XFWD) GO TO 330 

IF(XLE.GE.XFWD.A.XTE.GT.XAFT) GO TO 331 

IFCXLE.LT. XFWD. A. XTE. LE.XAFT) GO TO 332 

IFCXLE.LT.XFWD.A.XTE.GT.XAFT) GO TO 333 

IFCXLE.GE.XFWD.A.XTE.LE.XAFT) GO TO 340 

C COMPUTE NEW EFFECTIVE PANEL EDGES 

330 SP« 0.0 
BARM= 0.0 

.» GO TO 350 

331 XTE- XAFT 
GO TO 340 

332 XLE= XFWD 
GO TO 340 

333 XLE- XFWD 
XTE= ,XAFT 

C COMPUTE EFFECTIVE AREA AND BARM 

340 DX= XTE-XLE 

SP= 2.0*RCP(J)*DX 
XCT= (XLE+XTE)/2.0 
BARM= MRC*CXMR-XCT) 

C CHECK FOR NEW PAGE 

350 IFCJ.NE.31.A.J.NE.81) GO TO 360 

PRINT 3500 
PRINT 3501 
3500 FORMAT (*1*) 

35 n 1 FORMATC* *) 

35L2 FORMAT (*0*> 

PRINT 3200 

C PRINT, WRITE/PUNCH PANEL DATA 

360 PRINT 3600, PN,SP,8ARM,TARM 
3600, FORMATC* *,I3,I4,3C5X,F10.3)) 

WRITE (20) PN,SP,BARM,TARM,XCN 

IFCG0P.NE.4) GO TO 370 
PUNCH 3601, PN,SP,BARM,TARM 
3601 FORMAT C2I5,3F1 0.3) 

370 T A= TA+SP 
C GO TO NEXT PANEL 

30 CONTINUE , 

C PRINT TOTAL EFFECTIVE AREA OF ALL PANELS 
PRINT 3700, TA 

3700 FORMATC/// 1 * TOTAL AREA*, FI 2.3) 


SLENDER BODY COMPLETED 
GO TO 20 


GO TO NEXT SURFACE/AXIS DEFINITION 


THIN BODY TYPE 

READ THIN BODY DATA RECORD 


i ni 
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SUBROUTINE POPSR 
C 

C CREATES PRESSURE FILES FROM CAROS 
C • 

LOGICAL WGRC50) ,UGS (50) ,WGI (50) ,WGW(1 4) ,RS 

INTEGER GOP,POP,ROP,SOP,IOP,WOP,ACC2,2),NC,NSB,LRVL(4),SCN(2) 

INTEGER LRCC3),VBT(3) 

REAL RD(20,9),FALC9,50,6),FCL(9,50,6),WAL(9,14,6),WCL(9,14,6) 
LOGICAL SB 

INTEGER DN,DUMMY(4>,TIT1 C18,9),TIT2(18),INTB,IMR(9),CPB0DY(2) 
INTEGER INAF,INPT,MRN(2) 

REAL NTB,MR,M1 (9) ,A1 (9) ,B1 (9) ,91 (9) ,NAF,THETA,YR,NPT 
REAL XC,CPS,CPR,CPL,XR 

COMMON/GENCOM/GOP,POP,ROP,SOP,IOP,WOP,WGR,WGS,WGI,WGW,AC,NC,NSB, 

1 RD,LRVL,FAL,FCL,WAL,WCL,SCN,IC,LRC,VBT,RS 

COMM ON/POPCOM/DN, DUMMY, TIT1 ,TIT2,NTB,MR,M1,A1 ,81 ,91 ,INTB,IMR, 

1 CPBODY,NAF,THETA,INAF,YR,NPT,INPT,XC,CPS,CPR,CPL,XR,MRN,SB 


SB=. FALSE. 


READ THIN BODY 

CPS, ALL CASES 

* 100 DO 10 1=1 ,NC 


DN= 1+10 


IF(SB) GO TO 

200 

REWIND DN 


READC1 ,1001) 

CTIT1 CM,I),M=1,18) 

WRITE (DN) 

CTIT1 CM,I),M=1,18) 

1001 FORMAT Cl 8A4) 


READC1 ,1001) 

TIT2 

WRITECDN) 

TIT2 

READC1 ,1002) 

NTB,MR,M1 Cl) ,A1 Cl) ,B1 Cl) ,91 Cl) 

WRITECDN) 

NTB, MR, Ml Cl) ,A1 CD ,B1 Cl) ,91 Cl) 

1002 F0RMATC6F10.4) 


INTB= NTB 


IMRCI)= MR 


200 IFCSB) INTB= 

NSB 

DO 20 J=1,INTB 


READC1,1003) 

CPBODY, NAF, THETA 

WRITECDN) 

CPBODY,NAF, THETA 

1003 FORMAT C2A4, 2X^2 FI 0.4) 

INAF= NAF 


DO 30 K=1,INAF 


READC1,1004) 

YR,NPT 

WRITECDN) 

YR,NPT 

1004 F0RMATC2F10.4) 



INPT= NPT 
DO 40 L=1,INPT 

READC1,1D05) XC,CPS,CPR,CPL,XR 
40 WRITE(DN) XC,CPS,CPR,CPL,XR 
1005 FORMAT C5F1 0.4) 

30 CONTINUE 
20 CONTINUE 
10 CONTINUE 
C 

C READ ANY SLENDER BODY CPS ADDED TO END OF ALL THIN BODIES 
C 

IF(NSB.EQ.O) GO TO 999 



I m 



0PT=1 

XC,CPS,CPR,CPL,XR 
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RELOCATION 









2374 

IS 

INTEGER 



REFS 

2*159 

DEFINED 

89 

108 

127 

142 

151 






203 

214 

228 

287 




2353 

J 

INTEGER 



REFS 

2*26 

2*27 

2*51 

2*170 

3*175 

3*176 

2*177 






2*180 

3*189 

2*193 

2*345 

2*346 

DEFINED 

2*26 

2*27 






2*51 

2*346 

169 

174 

2*177 

2*180 

188 

2*193 

2*345 

2375 

JA 

INTEGER 



REFS 

2*175 

2*176 

2*180 

2*189 

2*190 

2*191 

2*192 






2*193 

202 

213 

DEFINED 

90 

109 

128 

143 






152 

204 

215 

229 

288 



16153 

LRC 

INTEGER 

ARRAY 

GENCOM 

REFS 

9 

11 






544 

LRVL 

INTEGER 

ARRAY 

GEMCOM 

REFS 

8 

11 

159 





2621 

LTOT 

REAL 

ARRAY 


REFS 

6 

176 

177 

242 

243 

244 

245 






2*246 

249 

250 

251 

252 

2*253 

255 

256 






257 

259 

260 

261 

304 

305 

306 

307 






308 

309 

310 

312 

313 

314 

316 

317 






318 

320 

321 

322 

325 

326 

327 

329 






330 

331 

333 

334 

335 

DEFINED 

171 

172 






173 

240 

241 

247 

248 

254 

258 

301 






302 

303 

311 

315 

319 

324 

328 

332 

256 

NC 

INTEGER 


GENCOM 

REFS 

8 

11 

14 

33 




2376 

NF 

INTEGER 



REFS 

168 

DEFINED 

91 

110 

129 

144 

153 






230 

289 







2377 

NL 

INTEGER 



REFS 

168 

DEFINED 

92 

in 

130 

145 

154 






231 

290 







2373 

NSA 

INTEGER 



REFS 

2*175 

2*176 

3*1 GO 

J 187 

2*189 

2*190 

2*191 






2*192 

3*193 

226 

236 

Defined 

88 

107 

126 






141 

150 

227 

286 





257 

NSB 

INTEGER 


GENCOM 

REFS 

8 

11 






2426 

NSEQ 

INTEGER 

ARRAY 


REFS 

5 

27 

177 

DEFINED 

26 

51 


2367 

PD 

REAL 



REFS 

97 

120 

137 

232 

295 








DEFINED 

79 







1 

POP 

INTEGER 


GENCOM 

REFS 

8 

11 






2356 

Q 

REAL 



REFS 

62 

171 

172 

173 

190 

191 

192 






242 

243 

249 

250 

255 

259 

262 

263 






304 

305 

306 

312 

316 

320 

325 

329 






333 

336 

337 

338 

DEFINED 

36 



2370 

QD 

REAL 



REFS 

98 

121 

DEFINED 

80 




2577 

R 

REAL 

ARRAY 


REFS 

' 6 

170 

177 

DEFINED 

93 

94 

95 






96 

97 

98 

99 

100 

101 

102 

112 






113 

114 

115 

116 

117 

118 

119 

120 






121 

131 

132 

133 

134 

135 

136 

137 






138 

146 

147 

155 

156 

205 

216 

217 






232 

233 

291 

292 

293 

294 

295 

296 

260 

RD 

REAL 

ARRAY 

GENCOM 

REFS 

10 

11 

34 

35 

36 

37 

<*2*38 






39 

40 

41 

42 

43 

44 

3*65 

79 






80 

81 

82 






2 

ROP 

INTEGER 


GENCOM 

REFS 

8 

11 






16161 

RS 

LOGICAL 


GENCOM 

REFS 

7 

11 






16150 

SCN 

INTEGER 

ARRAY 

GENCOM 

REFS 

8 

11 






3 

SOP 

INTEGER 


GENCOM 

REFS 

8 

11 






2343 

SWT 

REAL 



REFS 

24 

69 

171 

172 

173 

190 

191 






192 

242 

243 

249 

250 

255 

259 

262 






263 

304 

305 

306 

312 

316 

320 

325 

2400 





329 

333 

336 

337 

338 

DEFINED 

21 

48 

TIT3 

INTEGER 

ARRAY 


REFS 

5 

19 

62 

DEFINED 

18 

47 


2357 

V 

REAL 



REFS 

45 

65 

79 

80 

81 

82 







DEFINED 

37 

45 
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400 READ (30) YIN,ZIN,YOUT,ZOUT,TN, 

230 1 (PC(M),(XA(L,M),YA(L,M),ZA(L,M)',L=1,2),XA(3,M),XA(4,M), 

2 CXA (L,M),YA (L.M) ,ZA (L,M) ,L=5,6) ,XA(7,M) ,*A (8,M) , 

3 AP(H),CB(H) / (TC(L,M) / L=1 / 6) / M=1 / NCP) 

C 1 SET UP MISSING REFERENCE SYSTEM COORDINATES 
- 1 DO 40 K=1,NCP 

235 YA(3,K) = YA(1,K) 

ZA (3,K) - ZA(1,K) 

YA(4,K) = YA(2,K) 

ZA(4,K) = ZA(2,K) 

C TRANSFORM REFERENCE COORDINATES TO LOCAL SYSTEM 
240 DO 41 J=1,6 

XN(J,K) = XA(J,K)-XZ 

YN(J,K) = (YA(J,K)-YZ)*COS(TN) + (ZA(J,K)-ZZ)*SIN(TN) 

41 ZN(J,K) = (ZA(J,K)-ZZ)*COS(TN) - (YA(J,K)-YZ)*SIN(TN) 

40 CONTINUE 

245 C GENERATE MISSING ROW DATA 

RN= 0 

DO 45 J«1,NCP 

IF(PCCJ).NE.I.O) GO TO 450 
RN= RN+1 

250 NP“ 0 

AR= 0.0 
AY= 0.0 

* 450 NP- NP+1 

AR= AR+APCJ) 

255 AY= AY+AP(J)*YN(5.J) 

IF(PCCJ) .NE.-1 .0)* GO TO 45 
TNP(RN)= NP 
TYL(RN)= AY/AR 
45 CONTINUE 

260 NR= RN 

TND= TNA57.2958 
PRINT 4500, NR,TND 

4500 FORMAT (* NUMBER OF ROWS =*,I3,11X,*THETA =*,F7.2,* DEG*//) 
C WRITE, PUNCH SURFACE/ AXIS DATA 

265 WRITEC20) N,(SANAME(L,N),L=1,4),(SAB0D X,N),L=1,2), 

1 BTC (N) ,SC (N) ,NR,SREF (N) ,&REF(K>,CREF (N) ,CAVG 

IF (GOP. NE. 4) GO TO 460 

PUNCH 3010, N, (SANAME(L,N) ,L=1 ,4) , (SABODY (L,N) ,L=1 ,2) , 

1 BTC(N),SC(N),NR,SREF(N),BREF(N),CREF(N) 

270 C READ AND PRINT INTEGRATION AXIS DATA 

A 50 READ (1,4600) XAZ,YAZ,LAD 

4600 FORMAT(3F10.0) 

PRINT 4601, XAZ,YAZ,LAD 

4601 FORMAT (* INTEGRATION AXIS DEFINITION*, 

275 1 T42,*0RIGIN AT XN =*,F10.3/ 

2 T42,* YN =*,F10.3/ 

3 T42,*SWEEP ANGLE =*,F10.3,* DEG*//) 

C TRANSFORM LOCAL COORDINATES TO AXIS SYSTEM 

LA= -LAD/57.2958 '• 

280 DO 47 K-1/NCP 

DO 48 J=1,6 

XA(J,K) = (XN(J,K)-XAZ)*COS(LA) + (YN(J,K)-YAZ)*SIN(LA) 

48 YA(J,K) = ( YN ( J ,K) -YAZ) *COS (LA) - (XN(J,K)-XAZ)*SIN(LA) 

47 CONTINUE 

PRINT ROW DATA 


285 


C 
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73/74 

0PT=1 



FTN 4.2+75060 

07/29/81 

16.31.53. 

PAGE 


SYF60LIC 

REFERENCE MAP (R=3) 









ENTRY 

POINTS 

DEF LINE 

REFERENCES 







3 

SYNC 

1 

51 









VARIABLES SN 

1 TYPE 

RELOCATION 








252 

AC 

INTEGER 

ARRAY 

GENCOM 

REFS 

6 

18 





304 

A1 

REAL 

ARRAY 

POPCOM 

REFS 

16 

22 

DEFINED 

40 



1062 

BARN 

REAL 


GOPCOM 

REFS 

12 

20 

DEFINED 

33 

48 


705 

BREF 

REAL 

ARRAY 

GOPCOM 

REFS 

11 

20 

DEFINED 

24 



456 

BTC 

INTEGER 

ARRAY 

GOPCOM 

REFS 

9 

20 

DEFINED 

24 



315 

Bl 

RfcAL 

ARRAY 

POPCOM 

REFS 

16 

22 

DEFINED 

40 



1072 

C 

REAL 

ARRAY 

GOPCOM 

REFS 

12 

20 





1051 

CAVG 

REAL 


GOPCOM 

REFS 

11 

20 

DEFINED 

24 



1070 

CL 

INTEGER 


GOPCOM 

REFS 

10 

20 





1067 

CN 

INTEGER 


GOPCOM 

REFS 

10 

20 





351 

CPBODY 

INTEGER 

ARRAY 

POPCOM 

REFS 

14 

22 

2*51 

DEFINED 

42 


364 

CPL 

REAL 


POPCOM 

REFS 

17 

22 

DEFINED 

58 



363 

CPR 

REAL 


POPCOM 

REFS 

17 

22 

DEFINED 

58 



362 

CPS 

REAL 


POPCOM 

REFS 

17 

22 

DEFINED 

58 



767 

CREF 

REAL 

ARRAY 

GOPCOM 

REFS 

11 

20 

DEFINED 

24 



1056 

CROW 

REAL 


GOPCOM 

REFS 

11 

20 

DEFINED 

31 

46 


1071 

CT 

INTEGER 


GOPCOM 

REFS 

10 

20 





0 

DN 

INTEGER 


POPCOM 

REFS 

14 

22 

43 

I/O REFS 

37 

38 






40 

42 

55 

58 




1 

DUMMY 

INTEGER 

ARRAY 

POPCOM 

REFS 

14 

22 





1053 

ETA 

REAL 


GOPCOM 

REFS 

11 

20 

DEFINED 

31 

46 


550 

FAL 

REAL 

ARRAY 

GENCOM 

REFS 

B 

18 





5764 

FCL 

REAL 

ARRAY 

GENCOM 

REFS 

8 

18 





0 

GOP 

INTEGER 


GENCOM 

REFS 

6 

18 





300 

I 

INTEGER 



DEFINED 

30 

45 

54 




16152 

IC 

INTEGER 


GENCOM 

REFS 

18 

38 

4*40 

41 



340 

IMR 

INTEGER 

ARRAY 

POPCOM 

REFS 

14 

22 

DEFINED 

41 



355 

INAF 

INTEGER 


POPCOM 

REFS 

15 

22 

54 

DEFINED 

53 


360 

INPT 

INTEGER 


POPCOM 

REFS 

15 

22 

57 

DEFINED 

56 


337 

INTB 

INTEGER 


POPCOM 

REFS 

14 

22 





4 

IOP 

INTEGER 


GENCOM 

REFS 

6 

18 





301 

J 

INTEGER 



REFS 

38 

DEFINED 

32 

38 

47 

57 

277 

L 

INTEGER 



REFS 

2*24 

DEFINED 

2*24 




16153 

LRC 

INTEGER 

ARRAY 

GENCOM 

REFS 

7 

18 





544 

LRVL 

INTEGER 

ARRAY 

GENCOM 

REFS 

6 

18 





0 

M 

INTEGER 


F.P. 

REFS 

26 

27 

28 

DEFINED 

1 


272 

MR 

REAL 


POPCOM 

REFS 

16 

22 

41 

DEFINED 

40 


366 

MRN 

INTEGER 

ARRAY 

POPCOM 

REFS 

15 

22 





273 

Ml 

REAL 

ARRAY 

POPCOM 

REFS 

16 

22 

DEFINED 

40 



1 

N 

INTEGER 


GOPCOM 

REFS 

9 

20 

7*24 

26 

27 

28 

353 





DEFINED 

24 






NAF 

REAL 


POPCOM 

REFS 

16 

22 

53 

DEFINED 

42 


1065 

NALD 

INTEGER 


GOPCOM 

REFS 

10 

20 




256 

NC 

INTEGER vj 


GENCOM 

REFS 

6 

18 





1055 

NP 

INTEGER 4 


GOPCOM 

REFS 

10 

20 

32 

47 

DEFINED 

31 

357 

NPT 

REAL 


POPCOM 

REFS 

16 

22 

56 

DEFINED 

55 


622 

NR 

INTEGER 


GOPCOM 

REFS 

9 

20 

30 

45 

DEFINED 

24 

0 

NSAD 

INTEGER 


GOPCOM 

REFS 

9 

20 





257 

NS8 

INTEGER 


GENCOM 

REFS 

6 

18 





1066 

NT 

INTEGER 


GOPCOM 

REFS 

10 

20 





271 

NTB 

REAL 


POPCOM 

REFS 

16 

22 

DEFINED 

40 




ftlAfiA DFRC 


SUBROUTINE UOPSR 73/74 OPT=1 


VARIABLES 

SN TYPE 

RELOCATION 


16156 VBT 

INTEGER 

ARRAY GENCOM 

REFS 

13200 WAL 

REAL 

ARRAY GENCOM 

REFS 




244 

254 

2*266 


14564 

WCL 

REAL 

ARRAY 

GENCOM 

REFS 






192 






2*341 






264 

152 

WGI 

LOGICAL 

ARRAY 

GENCOM 

REFS 

6 

WGR 

LOGICAL 

ARRAY 

GENCOM 

REFS 

70 

WGS 

LOGICAL 

ARRAY 

GENCOM 

REFS 

234 

WGW 

LOGICAL 

ARRAY 

GENCOM 

REFS 






57 

5 

WOP 

INTEGER 


GENCOM 

REFS 

2342 

WTN 

INTEGER 



REFS 






57 






186 

2422 

' WTNAME 

INTEGER 

ARRAY 


REFS 

2346 

XHT 

REAL 



REFS 

DEFINED 

2350 

XVT 

REAL 



REFS 

2371 

YD 

REAL 



REFS 

2347 

YHT 

REAL 



REFS 

DEFINED 

2351 

ZVT 

REAL 



REFS 

FILE NAMES 

MODE 





OUTPUT 

FMT 


WRITES 

62 





177 

180 





269 

300 





345 

346 


TAPE1 

FMT 


READS 

18 


TAPE40 

UN FMT 


WRITES 

19 





MOTION 

13 

EXTERNALS 

TYPE 

ARGS 

REFERENCES 



EOF 

REAL 

1 

23 

49 


STATEMENT LABELS 

DEF LINE 

REFEi 

0 

10 

27 

25 

1242 

30 

366 

33 

0 

40 

51 

50 

0 

61 

104 

103 

0 

62 

123 

122 

0 

70 

177 

168 

0 

72 

170 

169 

0 

75 

176 

174 

0 

77 

189 

188 

0 

81 

210 

206 


49 


NASA DFRC 



FTN 4.2+75060 

07/29/81 

16.31.57. 

PAGE 

10 

9 

11 






10 

11 

176 

180 

193 

240 

241 

245 

246 

247 

248 

251 

252 

253 

256 

257 

258 

260 

261 

262 

263 

2*267 

2*268 

2*269 

301 

302 

303 

307 

309 

310 

311 

313 

314 

315 

317 

319 

321 

322 

324 

326 

327 

328 

331 

332 

334 

335 

336 

337 

338 

2*343 

2*344 

345 

346 

DEFINED 

176 

190 

192 

244 

245 

251 

252 

256 

260 

267 

307 

308 

309 

313 

317 

321 

330 

334 

342 

343 

344 


10 

11 

175 

180 

189 

190 

191 

193 

2*264 

2*265 

2*268 

2*269 

2*339 

2*340 

345 

346 

DEFINED 

175 

189 

262 

263 

265 

336 

337 

338 

339 

340 

341 

7 

11 






7 

11 






7 

11 






7 

11 

52 

53 

54 

55 

56 

58 

187 

226 

237 

285 

299 


8 

11 






5 

24 

52 

53 

54 

55 

56 

58 

69 

72 

2*75 

76 

86 

126 

200 

DEFINED 

21 

48 




5 

24 

69 

DEFINED 

21 

48 


24 

72 

24! 

246 

248 

253 


21 

48 






24 

72 

302 

310 

DEFINED 

21 

48 

138 

DEFINED 

81 





24 

72 

319 

322 

323 

324 

327 

21 

48 

323 





24 

72 

303 

310 

DEFINED 

21 

48 

65 

69 

72 

76 

157 

159 

161 

193 

239 

246 

253 

257 

261 

268 

310 

314 

318 

322 

327 

331 

335 

21 

26 






24 

27 

READS 

47 

48 

51 



46 


NASA DFRC 



M/V5A DFRC 


SUBROUTINE GOPSR 


FTN 4.2+750^0 


PRINT 4900 

4900 FORMAT (* ROW DATA*//* NUMBER*,7X,*YN*,9X,*NUMBER OF PANELS*/) 
DO 49 J=1,NR 

49 PRINT 4901, J,TYLCJ),TNP(J) 

4901 FORMAT (* 4,I5,5X,F10. 3,110) 

C GENERATE PANEL DATA 

• PRINT 3502 

PRINT 4910 

4910 FORMAT (* "*NEL DATA*//* INDEX*, 7X,*AREA-IN2*,8X,*BARM-IN*,8X, 

1 *1 A.uH- IN*) 

RN* 0 
NLP= 28+Nr 
DO 50 J=1,NCP 

C SET INDEXES AND WRITE,PUNCH ROW DATA IF LEADING EDGE PANEL 
IFIPC(J).NE.I.O)’. GO TO 495 
RN= RN+1 
l’N(1)= RN 
PW<2)= 0 

NLP* NLP+TNPIRN)+1 
C CHECK FOR NEW PAGE 

IFtNLP.LE. 60) GO TO 497 
. PRINT 3500 
PRINT 3501 
PRINT 4910 
NLP* 8+TNPCRN) 

497 PRINT 3501 

WRITEC20) RN,ETA,TYL (RN) ,TNP (RN) ,CROW 

IFCG0P.NE.4) GO TO 495 

PUNCH 3111, RN,TYL(RN),TNPCRN) 

495 PN<2)= PN(2)+1 
JJ= 0 

C CHECK FOR ENTIRE PANEL INBOARD OF BENDING AXIS 
IF (YA(1,J) .LE.O.O.A.YAC2,J) . LE.O.O. A. 

1 YA(3,J)..LE. 0.0. A. YA(4,J). LE.O.O) GO TO 660 

C CHECK FOR ENTIRE PANEL OUTBOARD OF BENDING AXIS 
IFCYA(1,J) .6E.0.0.A.YA(2,J) .GE.O'.O.A. 

1 YA(3,J).GE.O.O.A.YAC4,J).GE.O.O) GO TO 670 
C PANEL CUT BY BENDING AXIS 
500 JJ= 90 
NV= 0 

DO 55 K=1,3 
STCK)»' 0.0 
XT(K)= 0.0 
55 YTCK)= 0.0 

C GENERATE NEW PANEL CORNER POINTS 
C . TEST CORNER POINT 1 

IF(YA(1,J>.LT.0.Q) GO TO 510 
NV= NV+1 
X(NV)= XAC1,J) 

Y(NV) = YA Cl , J) 

C TEST CORNER POINT 1 TO 2 
510 IF((YA(1,J)*YAC2,J)) .GE.O.O) GO TO 520 
NV= NV+1 

XCNV)* (XAC1,J)*YA(2,J)-XAC2,J)*YA(1,J))/(YAC2,J)-YAU,J)) 
Y(Nv)= 0.0 

C TEST CORNER POINT 2 
520 IF(i'A(2,J).LT.0.0) "GO TO ,30 
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SUBROUTINE POPSR 73/74 OPT=1 
SYMBOLIC REFERENCE MAP (R=3) 


ENTRY POINTS DEF LINE REFERENCES 
1 POPSR 1 6.1 


VARIABLES 

SN TYPE 

RELOCATION 


252 

AC 

INTEGER 

ARRAY 

GENCOM 

REFS 

304 

A1 

REAL 

ARRAY 

POPCOM 

REFS 

315 

B1 

REAL 

ARRAY 

POPCOM 

■REFS 

351 

CPBODY 

INTEGER 

ARRAY 

POPCOM 

REFS 

364 

CPL 

REAL 


POPCOM 

REFS 

363 

CPR 1 

REAL 


POPCOM 

REFS 

362 

CPS 

REAL 


POPCOM 

REFS 

0 

DN 

INTEGER 


POPCOM 

REFS 






30 

1* 

DUMMY 

INTEGER 

ARRAY 

POPCOM 

REFS ' 

550 

FAL 

REAL 

ARRAY 

GENCOM 

REFS 

5764 

FCL 

REAL 

ARRAY 

GENCOM 

REFS 

0 

GOP 

INTEGER 


GENCOM 

REFS 

251 

I 

"INTEGER 



REFS 

DEFINED 

16152 

1C 

INTEGER 


GENCOM 

REFS 

340 

IMR 

INTEGER 

ARRAY 

POPCOM 

REFS 

355 

INAF* 

INTEGER 


POPCOM 

REFS 

360 

INPT 

INTEGER 


POPCOM 

REFS 

337 

INTF 

INTEGER 


POPCOM 

REFS 

4 

IOP 

INTEGER 


GENCOM 

REFS 

253 

J 

* INTEGER 



DEFINED 

254 

K 

* INTEGER 



DEFINED 

255 

L 

* INTEGER 



DEFINED 

16153 

LRC 

INTEGER 

ARRAY 

GENCOM 

REFS 

544 

LRVL 

INTEGER 

ARRAY 

GENCOM 

REFS 

252 

M 

INTEGER 



REFS 

272 

MR 

REAL 


POPCOM 

REFS 

366 

MRN 

INTEGER 

ARRAY 

POPCOM 

REFS 

273 

Ml 

REAL 

.'RRAY 

POPCCM 

REFS 

353 

NAF 

REAL 


POPCOM 

REFS 

256 

NC 

INTEGER 


GENCOM 

REFS 

357 

NPT 

REAL 


POPCOM 

REFS 

257 

NSB 

INTEGER 


GENCOM 

REFS 

271 

NTB 

REAL 


POPCOM 

REFS 

1 

POP 

INTEGER 


GENCOM 

REFS 

326 

Q1 

REAL 

ARRAY 

POPCOM 

REFS 

260 

RD 

REAL 

ARRAY 

GENCOM 

REFS 

2 

ROP 

INTEGER 


GENCOM 

REFS 

16161 

RS 

LOGICAL 


GENCOM 

REFS 

370 

SB 

LOGICAL 


POPCOM 

REFS 

DEFINED 

16150 

SCN 

INTEGER 

ARRAY 

GENCOM 

REFS 

3 

SOP 

INTEGER 


GENCOM 

REFS 

354 

THETA 

REAL 


POPCOM 

REFS 

5 

TIT1 

INTEGER 

ARRAY 

POPCOM 

REFS 

247 

TIT2 

INTEGER 

ARRAY 

POPCOM 

REFS 

16156 

VBT- 

INTEGER 

ARRAY 

GENCOM 

REFS 

13200 

WAL 

REAL 

ARRAY 

GENCOM 

REFS 

14564 

WCL 

REAL 

ARRAY 

GENCOM 

REFS 

152 

WGI 

LOGICAL 

ARRAY 

GENCOM 

REFS 
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6 

14 





12 

16 

32 

DEFINED 

31 


12 

16 

32 

DEFINED 

31 


10 

16 

39 

DEFINED 

38 


13 

16 

49 

DEFINED 

48 


13 

16 

49 

DEFINED 

48 


13 

16 

49 

DEFINED 

48 


10 

16 

DEFINED 

23 

I/O REFS 

25 

32 

39 

* 44 

49 



10 

16 




8 

14 





8 

14- 





6 

• 14 





23 

26 

27 

4*31 

4*32 

35 

22 






14 






10 

16 

DEFINED 

35 



11 

16 

42 

DEFINED 

41 


11 

16 

47 

DEFINED 

46 


10 

16 

37 

DEFINED 

34 

36 

6 

14 





37 






42 






47 






7 

14 





6 

. 14 





26 

27 

DEFINED 

26 

27 


12 

16 

32 

35 

DEFINED 

31 

11 

16 


t 



12 

16 

32 

DEFINED 

31 


12 

■ 16 

39 

41 

DEFINED 

38 

6 

14 

22 




12 

16 

44 

46 

DEFINED 

*3 

6 

14 

36 

57 



12 

16 

32 

34 

DEFINED 

31 

6 

14 





12 

16 

32 

DEFINED 

31 


8 

14 





6 

14 





5 

14 





9 

16 

24 

36 

58 


18 

59 





6 

14 





6 

14 





12 

16 

39 

DEFINED 

38 


10 

16 

27 

DEFINED 

26 


10 

16 

30 

DEFINED 

29 


7 

14 





8 

14 





8 

14 





5 

14 
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VARIABLES 

SN TYPE 

RELOCATION 









1057 

PN 

INTEGER 

ARRAY 

GOPCOM 

REFS 

10 

20 

DEFINED 

33 

48 



1 

POP 

INTEGER 


GENCOM 

REFS 

6 

18 






326 

Q1 

REAL 

ARRAY 

POPCOM 

REFS 

16 

22 

DEFINED 

40 




260 

RD 

REAL 

ARRAY 

GENCOM 

REFS 

8 

18 






1052 

RN 

INTEGER 


GOPCOM 

REFS 

1U 

20 

DEFINED 

31 

46 



2 

ROP 

INTEGER 


GENCOM 

REFS 

6 

18 






16161 

RS 

LOGICAL 


GENCOM 

REFS 

5 

18 






0 

Rl 

RETURNS 



REFS 

35 

DEFINED 

1 





0 

R2 

RETURNS 



REFS 

50 

DEFINED 

i 





312 

SABODY 

INTEGER 

ARRAY 

GOPCOM 

REFS 

9 

20 

2*51 

DEFINED 

24 



2 

SANAME 

INTEGER 

ARRAY 

GOPCOM 

REFS 

9 

20 

DEFINED 

24 




370 

SB 

LOGICAL 


POPCOM 

REFS 

13 

22 






540 

SC 

INTEGER 

ARRAY 

GOPCOM 

REFS 

9 

20 

DEFINED 

24 




16150 

SCN 

INTEGER 

ARRAY 

GENCOM 

REFS 

6 

18 






3 

SOP 

INTEGER 


GENCOM 

REFS 

6 

18 






1061 

sp 

REAL 


GOPCOM 

REFS 

12 

20 

DEFINED 

33 

48 



623 

SREF 

REAL 

ARRAY 

GOPCOM 

REFS '"T 

ii 

20 

DEFINED 

24 




1063 

TARM 

REAL 


GOPCOM 

REFS 

12 

20 

DEFINED 

33 

48 



354 

THETA 

* REAL 


POPCOM 

REFS 

16 

22 

DEFINED 

42 




5 

TIT1 

INTEGER 

ARRAY 

POPCOM 

REFS 

14 

22 

DEFINED 

38 




247 

TIT2 

INTEGER 

ARRAY 

POPCOM 

REFS 

14 

22 

DEFINED 

39. 




16156 

VBT 

INTEGER 

ARRAY 

GENCOM 

REFS 

7 

18 





13200 

WAL 

REAL 

ARRAY 

GENCOM 

REFS 

8 

18 






14564 

WCL 

REAL 

ARRAY 

GENCOM 

REFS 

8 

18 






152 

WGI 

LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

18 

28 





6 

WGR 

LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

18 

26 





70 

WGS 

LOGICAL 

ARRAY 

GENCOM 

REFS ■ 

5 

18 

27 





234 

WGW 

logical 

ARRAY 

GENCOM 

REFS 

5 

18 






5 

WOP 

INTEGER 


GENCOM 

REFS 

6 

18 






361 

XC 

REAL 


POPCOM 

REFS 

17 

22 

DEFINED 

58 




1064 

XCN 

REAL 


GOPCOM 

REFS 

12 

20 

DEFINED 

33 

48 



365 

XR 

REAL 


POPCOM 

REFS 

17 

22 

DEFINED 

58 




1054 

YL 

REAL 


GOPCOM 

REFS 

11 

20 

DEFINED 

31 

46 



356 

YR 

REAL 


POPCOM 

REFS 

16 

22 

DEFINED 

55 




FILE NAMES 

MODE 












TAPE20 

UNFMT 


READS 

24 

31 

33 

46 

48 





VARIABLES USED AS 

FILE NAMES, 

SEE ABOVE 









EXTERNALS 

TYPE 

ARCS 

REFERENCES 










EOF 

REAL 

i 

43 







u 


STATEMENT LABELS 

DEF LINE REFERENCES 







0 

10 


34 

30 









0 

20 


33 

32 









0 

30 


49 

45 









0 

40 


48 

47 









0 

50 


59 

54 









0 

60 


58 

57 









55 

200 ' 


37 

26 

27 

28 







102 

300 


42 

60 









124 

400 


51 

43 









LOOPS 

LABEL 

INDEX 

FROM-TO 

LENGTH 

PROPERTIES 








41 

10 

* I 

30 34 

12B 

EXT REFS 

NOT INNER 






44 

20 

* J 

32 33 

5B 

EXT 

REFS 







110 

30 

* I 

45 49 

12B 

EXT 

REFS 

NOT INNER 







NASA DFRC 


NASA DFRC 



LOOPS LABa 
20 10 


271 42 


INDEX 

* I 

* IC 

* I 
I 
I 


FROM-TO 

LENGTH 

PROPERTIES 

25 27 

25B 


EXT REFS 

33 364 

1177B 


EXT REFS NOT INNER 

50 51 

148 


EXT REFS 

103 104 

2B 

INSTACK 


122 123 

2B 

INSTACK 



NASA DFRC 


NASA DFRC 


SUBROUTINE fiOPSR 


73/74 bpT=1 


FTN 4.2+75060 


07/29/81 16.31.29. 


345 


350 


355 


360 


365 


370 


'3+5 


380 


385 


390 


395 


NV= NV+1 
X(NV)= XA(2,J) 

Y<NV)= YA(2,J) 

TEST CORNER POINT 2=4 
530 IF(XN(2,J).Ea.XNl4,J)> GO TO 560 
TEST CORNER POINT 2 TO 4 
540 IFUYAC2,J)+YA(4,J».GE.0.0' GO TO 550 
NV= NV+1 

XINV)= (XAC2,J)*YAC4,J)-XA(4,J)*YA<.2,J))/(YA(4 / J)-YAC2,J)) 
Y(NV)= 0.0 
TEST CORNER FOINT 4 
550 IFUA(4,J).LT.0.0) GO TO 560 
NV-- NV+1 

X<NV)= XAC4,J) • 

Y(MV)= YA(4,J) 

! TENT CORNER POINT 4 TO 3 
560 IFk(YA(4,J)*YA(3,J)).GE.0.0> GO TO 570 
NV= NV+1 

XCNV) = (XAC4,J)*YA'3,J)-XAC3,J)*YA(4,J))/IYA(3,J)-YA14,J)) 
Y(NV)= 0.0 

TEST CORNER POINT 3 = 1 
570 IF(XN(3,J).E8.XNC1,.I>) GO TO 600 
TEST CORNER POINT 3 
580 IF(YA(3,J).LT.0.0) GO TO 590 
NV= NV+1 
X(NV) = XAC3,J) 

YCNV)= YAC3,J> 

TEST CORNER POINT 3 TO 1 
590 IFC CYA(3/J)*YA(1,J)) .GE.O.O) GO TO 600 
NV= NV+1 

XCNV)= CXA(3,J>*YAC1,JJ-XAC1 , J >*YA C3, J > X / C YA Cl ,J)-YAC3,j)) 
Y(NV)= 0.0 

CHECK NUMBER OF TRIANGLES IN POLYGON 
600 IFCNV.GE.3.A.NV.LE.5) GO TO 610 
JJ= 99 
GO TO 660 

COMPUTE AREA AND CENTROID ~ FIRST TRIANGLE 
610 ST(1)=-(XC1)*(YC2)-Y(3)XX<2)*m3)-Yt1))+X(3)*mi)-Y(2)»/2.0 
XTC1)= (X(1)+X(2)+X(3))/3.0 
YT11 J= (Y(1)+Y(2)+YC3))/3.0 
IFCSTC1). LE.O.O) JJ=91 

IFCYTC1) .LE.O.O) Jj=91 
IFCNV.E8.3) GO TO 650 

COMPUTE AREA AND CENTROID - SECOND TRIANGLE 

ST(2)=-(XC1)*(Y(3)-Y(4)3+X(3)*(Y(4)-Y(1))+X(4)*(Y(1)-Y(3)))/2.0 

XTC2>= <X(1)+X(3.'+X/4))/3.0 

YTC2)= mi)+Y(3)+Y(4))/3.0 

IF(ST(2). LE.O.O) JJ=92 

IF(YT(2>. LE.O.O) JJ=92 

IFCNV.E8.4) GO TO 650 

COMPUTE AREA AND CENTROID - THIRD TRIANGLE . 

STt3)=-<X(1)*(YC4)-YI5»+XU>*(Y(5)-Yt1))+XC5)*mi)-YU)))/2.0 

XTC3)= (XC1)+X(4)+X(5))/3.0 

YTC3)= (Yl1)+Y(4)+YC5))/3.0 

IFCSTC3). LE.O.O) JJ=93 

IFCYTE3) .LE.O.O) JJ=93 

COMPUTE TOTAL EFFECTIVE PANEL AREA AND ARMS 
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4 

VARIABLES SN TYPE 

RELOCATION 








6 WGR LOGICAL 

ARRAT 

GENCOM 

REFS 

5 

14 





70 WGS LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

14 





234 WGW LOGICAL 

ARRAY 

GENCOM 

REFS 

5 

14 





5 WOP INTEGER 


GENCOM 

REFS 

6 

14 





361 XC REAL 


POPCOM 

REFS 

13 

16 

49 

DEFINED 48 



365 XR REAL 


POPCOM 

REFS 

13 

16 

49 

DEFINED 48 



356 YR REAL 


POPCOM 

REFS 

12 

16 

44 

DEFINED 43 



FILE NAMES MOPE 










TAPE1 FMT 


READS 26 

29 

31 

38 

43 48 



VARIABLES USED AS 

FILE NAMES, 

, SEE ABOVE 







STATEMENT LABELS 

DEF LINE REFERENCES 







0 10 

53 

22 








0 20 

52 

37 








0 30 

51 

42 








0 40 

49 

47 








3 100 

22 

60 








57 200 

36 

24 








123 999 

61 

57 

58 







135 1001 FMT 

28 

26 

29 







171 1002 FMT 

33 

31 








207 1003 FMT 

40 

38 








224 1 004 FMT 

45 

43 








246 1005 FMT 

50 

48 








LOOPS LABEL INDEX 

FROM-TO 

LENGTH 

PROPERTIES 






4 10 * I 

22 53 

113B 


EXT REFS NOT INNER 





63 20 * J 

37 52 

32B 


EXT REFS NOT INNER 





72 30 * K 

42 51 

20B 


EXT REFS NOT INNER 





101 40 * L 

47 49 

7B 


EXT REFS 






• COMMON BLOCKS LENGTH 

MEMBERS - 

- BIAS NAME(LENGTH) 







GENCOM 7282 


0 GOP 

(D 

1 

POP CD 


2 ROP 

CD 




3 SOP 

CD 

4 

IOP (1) 


5 WOP 

(1) 




6 WGR 

(50) 

56 WGS (50) 


106 WGI 

(50) 



156 WGW 

(14) 

170 

AC (4) 


174 NC 

(D 



175 NSB 

(1) 

176 RD (180) 


356 LRVL 

(4) 



360 FAL 

(2700) 

3060 

FCL (2700) 


5760 WAL 

(756) 



6516 WCL 

(756) 

7272 

SCN (2) 


7274 IC 

(D 



7275 LRC 

(3) 

.7278 VBT (3) 


7281 RS 

(D 


POPCOM 249 


0 DN 

(1) 

v ' r 

DUMMY (4) - 


5 TIT1 

(162) 



167 TIT2 

(18) 

185 NTB (1) 


186 MR 

(D 



187 Ml 

(9) 

196 AI (9) 


205 B1 

(9) 



214 ai 

(9) 

223 

INTO (D 


224 IMR 

(9) 



233 CPBODY 

(2) 

235 NAF CD 


236 THETA 

CD 



237 INAF 

CD 

238 YR CD 


239 NPT 

CD 



240 I MPT 

CD 

241 

XC (1) 


242 CPS 

(1) 



243 CPR 

(D 

244 CPL (1) 


245 XR 

(D 



246 MRN 

(2) 

248 

SB (D 





STATISTICS 










PROGRAM LENGTH 

23 6B 

17 A 








CM LABELED COMMON LENGTH 16553B 

7531 










L 


W/\S ft DFRC 



SUBROUTINE SYNC 

73/74 0PT=1 


FTN 4.2+75060 

07/29/81 16.31.53. 

LOOPS 

LABEL 

INDEX 

FROM-TO LENGTH 

PROPERTIES 




113 

40 

* J 

47 48 5B 


EXT REFS 




135 

50 

* I 

54 59 148 


EXT REFS NOT INNER 



142 

60 

* J 

57 58 5B 


EXT REFS 




COMMON BLOCKS 

LENGTH 

MEMBERS - BIAS NAME (LENGTH) 






GENCOM 

7282 

. . 0 GOP 

u) 

1 POP 

(D 

2 ROP 

(1) 




3 SOP 

(!) 

4 IOP 

(D 

5 HOP 

(1) 




6 WGR 

(50) 

56 WGS 

(50) 

106 HGI 

(50) 




156 WGW 

(14) 

170 AC 

(4) 

174 NC 

(1) 




175 NSB 

(1) 

176 RD 

(180) 

356 LRVL 

(4) 




360 FAL 

(2700) 

3060 FCL 

(2700) 

5760 HAL 

(756) 




6516 WCL 

(756) 

7272 SCN 

(2) 

7274 IC 

(1) 




7275 LRC 

(3) 

7278 VBT 

(3) 

7281 RS 

(1) 


GOPCOM 

573 

0 NSAD 

(1) 

1 N 

(1) 

2 SANAME 

(200) 




202 SABODY 

(100) 

302 BTC 

(50) 

352 SC 

(50) 




402 NR 

(1) 

403 SREF 

(50) 

453 BREF 

(50) 




503 CREF 

(50) 

553 CAVG 

(1) 

554 RN 

(1) 




555 ETA 

.(1) 

556 YL 

(1) 

557 NP 

(1) 




558 CROW 

(1) 

559 PN 

(2) 

561 SP 

(1) 




562 BARM 

(1) 

563 TARM 

(1) 

564 XCN 

(1) 




565 NALD 

(1) 

566 NT 

(1) 

567 CN 

(1) 




568 CL 

(1) 

569 CT 

(1) 

570 C 

(3) 


POPCOM 

249 

0 DN 

(1) 

1 DUMMY 

(4) 

5 TIT1 

(162) 




167 TIT2 

(18) 

185 NTB 

(1) 

186 MR 

(1) 




187 Ml 

(9) 

196 A1 

(9) 

205 81 

(9) 




214 Ql 

(9) 

223 I NTB 

(1) 

224 IMR 

(9) 




233 CPB0DY 

(2) 

235 NAF 

(1) 

236 THETA 

(1) 




237 INAF 

(1) 

238 YR 

(1) 

239 NPT 

(1) 




240 INPT 

(1) 

241 XC 

(1) 

242 CPS 

(1) 




243 CPR 

(1) 

244 CPL 

(1) 

245 XR 

(1) 




246 MRN 

(2) 

248 SB 

(1) 




CTATT*?TTrQ 

PROGRAM LENGTH 302B 194 

CM LABELED COMMON LENGTH 17650B 8104 


JcktJck — QQ£...JrrMrf^ 


PAGE 5 


t' 


(UASft DFRC 



SUBROUTINE WOPSR 

73/74 

0PT=1 


FTN 4.2+75060 

07/29/81 16.31. 

.57. 

LOOPS 

LABEL 

INDEX 

FROM-TO 

LENGTH 

PROPERTIES 




350 

70 

* I 

168 177 

50B 


EXT REFS NOT ! 

INNER 



354 

72 

J 

169 170 

2B 

INSTACK 





372 

75 

* J 

174 176 

1 1 B 

OPT 





422 


* J . 

180 

14B 


EXT REFS 




437 


* J 

180 

14B 


EXT REFS 




465 

77 

* J 

188 189 

11B 

OPT 





530 


* J 

193 

14B 


EXT REFS 




545 


* v * 

193 

14B 


EXT REFS 




604 

81 

I 

206 210 

43 

IMSTACK 





623 

82 

I 

218 223 

5B 

INSTACK 





1166 


* J 

345 

1 1B 


EXT REFS 




1200 


* J 

345 

11B 


EXT REFS 




1215 


* J 

346 

11B 


EXT REFS 




1227 


* J 

346 

11B 


EXT REFS 




COMMON BLOCKS 

LENGTH 

MEMBERS - BIAS NAME (LENGTH) 






GENCOM 

7282 


0 GOP 

(1) 

1 POP 

(1) 

2 ROP 

(1) 





3 SOP 

(1) 

4 IOP 

(1> 

r wop 

(1) 





6 WGR 

(50) 

56 W6S 

(50) 

106 WGI 

(50) 




156 WGW 

(14) 

170 AC 

(4) 

174 NC • 

(1) 




175 NSB 

(1) 

176 RD 

(180) 

356 LRVL 

(4) 




360 FAL 

(2700) 

3060 FCL 

(2700) 

5760 WAL 

(756) 




6516 WCL 

(756) 

7272 SCN 

(2) 

7274 IC 

(1) 




7275 IRC 

(3) 

7278 VBT 

(3) 

7281 RS 

(1) 

STATISTICS 









PROGRAM LENGTH 

2624B 

1428 






CM LABELED COMMON LENGli 

‘ 16162B 

7282 








